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第 一 章 ”使 用 概述 


1.1 系统 的 配置 


中 华 学习 机 系统 部 件 很 多 ,如 主机 .显示器 、 磁 带 机 、 打 印 
机 、 磁 盘 驱 动 器 等 ,这 些 部 件 并 非 缺 一 不 可 ,我 们 可 以 根据 使 
用 情况 来 选择 系统 的 配置 。 

把 主机 (包括 键 规 ) 和 显示 器 (可 用 家 用 电视 机 来 代 蔡 ) 连 
接 起 来 ,就 构成 了 中 华 学 习 机 的 基本 系统 ,利用 基本 系统 可 以 
学 习 基 本 BASIC 语言 和 LOGO 语言 ,也 可 以 进行 打字 指法 练 
习 。 

在 基本 系统 的 基础 上 ,再 配 上 一 台 磁 带 机 (或 家 用 录音 
机 ) 就 豆 以 把 编 好 的 程序 保存 在 磁带 上 ,或 从 磁带 中 读 出 。 

如 果 想 使 用 更 多 的 现成 软件 ,如 汉字 关系 数据 库 系 乡 
cdBASE 1 、 汉字 编辑 软件 C-WORDSTAR 等 ,来 解决 学 习 和 工 
作 中 的 问题 ,那么 最 好 是 配置 磁盘 驱动 器 。 磁 盘 容 量 大 , 读 写 
速度 快 ,而 且 使 用 方便 ,因此 ,目前 许多 实用 软件 都 是 存 贮 在 
磁盘 上 。 有 用户 也 可 以 使 用 磁盘 来 存 贮 大 量 的 程序 和 数据 。 一 
般 来 说 ,要 使 中 华 学 习 机 发 挥 更 大 的 作用 ,就 必须 配置 磁盘 吏 
动 器 。 

打印 机 也 很 有 用 处 , 它 能 将 程序 汉 行 的 结果 打印 输出 在 
纸 上 , 还 可 以 输出 图 形 、 报 表 、 文 稿 等 。 

中 华 学 习 机 采用 积 本 式 结构 , 用 户 可 以 先 配 署 基 本 系 
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统 ,然后 在 有 条 件 时 或 者 需要 时 再 逐步 完善 
%1.2 系统 的 连接 


当选 择 了 系统 配置 之 后 , 便 可 以 把 各 部 件 连接 起 来 。 

1. 主机 与 显示 器 的 连接 

当 使 用 电视 机 作为 显示 器 时 ,连接 方法 (如 网 1. 1 如 下 : 

GD 把 电视 机 的 天 线 插头 拨 掉 ; 

包 用 视频 电缆 线 一 头 插 入 主机 后 座 标 有 "电视 机 ?CTV) 
的 插 孔 ,一头 播 入 电视 机 天 线 择 孔 ; 

@@ 将 电视 机 电源 和 主机 电源 插头 分 别 插入 电源 插座 

全 先 开 电视 机 电源 开关 ,再 开 主机 电源 开关 ; 

多 调 准 电视 机 频道 (一 般 在 3 或 4 频道 ) 直 到 屏幕 清晰 
为 准 。 


图 1.1 


当 使 用 监视 器 作为 显示 器 时 ,连接 方法 如 下 : 
人 用 视频 电缆 线 一 头 插入 主机 后 座 标 有 “监视 器 ”的 接 


口 ,一 头 插入 监视 器 IN 插座 ; 

@ 将 主机 和 监视 器 的 电源 插头 分 别 插入 电源 插座 ; 

多 先 开 监视 器 后 开 主 机 ,屏幕 将 出 现 : 

-ZHONG HUO XUE XI JI 

2. 主机 与 录音 机 的 连接 

(1 确认 主机 电源 开关 处 于 “OFF” 状 态 ,准备 好 第 3 个 电 
源 插座 (主机 、 显 示 器 已 各 占 一 个 ); 

《2) 把 录音 机 电缆 的 五 芯 择 头 插入 主机 的 录音 机 插口 , 见 
图 1.2。 注 意 ,五 芯 插头 的 止 口 在 正 上 方 ; 

(3) 电 缆 的 另 两 端 为 3. 5mnmi 的 插头 ,将 红头 揪 入 录音 机 
的 EAR 插 孔 ,黑头 插入 录音 机 的 MIC 插 乱 ; 

(4) 把 录音 机 的 电源 接 上 。 


图 1.2 
3. 主机 与 磁盘 驱动 器 的 连接 
(1 磁盘 驱动 器 的 电源 由 中 华 学 习 机 主机 供给 ,不 必 另 外 
连接 ; 
(2) 先 将 主机 电源 关 掉 ; 


(3) 将 驱动 器 的 电缆 (20 芯 ? 择 入 主机 后 面 的 “驱动 器 ? 择 
座 中 。 注 意 ,插头 上 有 箭头 标记 朝 上 ,不 要 弄 错 方向 。 


4. 主机 和 打印 机 的 连接 

(1) 关 掉 主 机 电源 和 打印 机 电源 ; 

(2) 芭 轻 压 下 扩充 槽 盖 , 可 见 主机 板 上 有 一 个 50 芯 的 插 
座 ; 

《3) 把 打印 机 的 接口 卡 轻 轻 插入 槽 口 , 卡 上 元 器 件 面向 键 
盘 。 把 接口 卡通 过 扁平 (20 芯 ) 线 与 打印 机 连接 ,36 脚 D 型 插 
头 插 到 打印 机 D 型 插座 ; 

(4) 插 上 打印 机 电源 ,并 打开 电源 开关 , 若 正常 ,可 见 到 打 
印 机 头 移动 一 下 ,如 果 你 的 打印 机 可 以 通过 自 检 , 则 在 通电 前 
先 装 好 打印 纸 ,并 按说 明 进 行 自 检 操作 ， 

(5) 用 时 开 * 联 机 (ONLINE)” 按 钮 (看 指示 灯 ); 

(6) 可 连用 的 打印 机 型 号 有 :CP-80,RX-80,MX-80.FX- 
80,MX-100,FX-100 等 。 
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$ 1.3 系统 的 启动 


首先 将 主机 和 其 他 外 部 设备 (显示 器 、 磁 带 机 、 打 印 机 等 ) 
的 电源 接 到 220V 电源 插座 上 ,然后 按 -- 定 步骤 开机 。 

(1) 没 有 磁盘 驱动 器 的 情况 下 , 先 将 外 部 设备 的 电源 开关 
打开 ,再 打开 主机 电源 开关 (开关 设 在 主机 的 左 后 方 ), 此 时 可 
听 到 扬声器 发 出 “ 嘟 ”的 一 声响 ,屏幕 上 显示 出 “中 华 学 习 机 ” 
的 汉语 拼音 


ZHONG HUA XUE XIL JI 


] 口 
“了 " 称 为 BASIC 提示 符 , 它 告诉 我 们 目前 机 器 已 进入 
BASIC 状态 。 提 示 符 右边 有 一 个 闪 动 的 光标 , 它 指 示 了 下 一 个 
字符 的 显示 位 置 。 
(2 系统 配 有 磁盘 驱动 器 时 ,应 先 将 存 有 DOS3. 3 系统 软 
盘 插 入 驱动 器 里 ,再 先 开外 部 设备 电源 ,后 打开 主机 电源 ,这 
时 可 昕 到 扬声器 发 出 “ 哪 " 的 一 声响 ,随后 驱动 器 上 的 指示 灯 
发 亮 ,并 且 可 以 听 到 马达 转动 的 声音 ,直到 指示 灯 熄 灭 ,屏幕 
显示 : 
DOS VERSION 3.3 


和 图 
此 时 系统 已 在 BASIC 状态 下 ,由 于 已 装 入 DOS 3. 3, 故 也 
能 运行 与 磁盘 有 关 的 操作 了 。 


8$ 1.4 键盘 操作 


中 华 学 习 机 的 键盘 是 直接 装 在 主机 壳 内 , 键 的 排列 如 图 
所 示 。 


岁 14 
键 生 共有 69 个 键 , 其 中 包括 25 个 英文 字母 键 、10 个 数 
字 键 和 符号 键 ,这 些 都 属于 一 般 常用 键 。 除 此 之 外 ,还 育 下 列 
些 特 原 键 。 
(Ci 中文? 和 "“ 西 文 " 键 
用 和 于 中 西 文 方式 的 转换 ,通电 后 系统 自动 处 于 西 立 BA 
SIC 状态 , 若 此 暑 入 “中 文 ” 键 ,系统 便 进入 中 文 BASIC 状 


态 , 若 想 再 次 迁 入 西 文 BASIC 状态 ,可 胡 “ 西 文 ? 键 。 
《237“FPi”“F5” 键 


这 五 个 键 称 为 功能 键 。 这 些 键 在 不 同 的 软件 系统 中 汪 不 
. 同 的 用 途 。 例 如 ,在 汉字 状态 下 ,这 五 个 功能 键 用 于 汉字 深入 
方式 的 切换 “Fl7 为 字母 输入 方式 “F2” 为 拼音 输入 方式 .这 
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等 。 
(3)Qnuit 键 
用 于 从 正在 进行 的 BASIC 程序 中 退出 。 
(4)Test 键 
用 于 系统 自 检 ( 测 试 存 贮 器 和 显示 器 )。 当 同时 按 下 Ctrl、 
Reset 和 Test 三 个 键 后 ,计算 机 就 进入 检测 状态 。 
(5)Shift 键 


聊 为 换 档 键 .键盘 上 ,有 的 键 标 有 两 个 字符 ,如 | |, 当 我 们 


直接 涡 该 键 时 , 便 得 到 “1?; 当 按 下 Shift 键 的 同时 坑 该 键 
Cshift 键 先 按 后 放 ), 则 得 到 上 ” 档 键 ”, 即 “! ”。 

(6)Ctrl 键 

称 为 控制 键 。 当 它 与 其 他 的 键 同 时 按 下 (实际 操作 时 Ctrl 
键 先 按 后 放 ), 可 产生 不 同 的 控制 作用 。 在 本 书 中 ,Ctrl 键 简写 
为 了 ,如 2G 表示 Ctrl 键 与 C 键 一 起 使 用 。 

(7)Reset 键 

称 为 复位 键 。 当 系统 运行 中 出 现 不 正常 现象 (如 陷入 死 循 
环 ) 时 , 按 下 Ctrl 键 同 时 按 Reset 键 就 产生 系统 复位 (重新 启 
动 系统 ) 。 

(8)Return 键 

称 为 回 车 键 。 它 是 键盘 上 用 得 最 多 的 键 。 当 键入 一 个 命 
令 后 ,只 有 涡 了 Return 键 , 计 算 机 才 真 正 地 接受 并 执行 。 在 本 
书 中 有 时 也 用 符号 “< ?表示 回 车 键 。 

(9)Capslock 键 

这 是 字母 大 小 写 的 转换 键 。 按 下 该 键 ,键盘 处 于 大 写字 母 
状态 ,此 时 所 有 字母 键 的 输入 都 为 大 写 。 当 该 键 抬 起 时 ,键盘 
则 回 到 小 写字 母 状态 ,此 时 字母 键入 都 为 小 写 。 


(10) Esc 键 
用 于 屏幕 编辑 , 见 8 1. 5 介绍 。 


8$ 1.5 屏幕 编辑 


当 我 们 用 键盘 向 计算 机 输入 命令 或 者 程序 时 ,免不了 会 
敲 错 键 ,或 需要 改动 某 些 内 容 。 遇 到 这 种 情况 时 ,可 以 使 用 屏 
幕 编辑 命令 来 进行 修改 。 以 下 介绍 编辑 命令 的 用 法 。 

1. < 键 

称 为 退 格 键 。 每 散 一 次 ,光标 退回 一 格 , 退 回 光 标 下 的 字 
符 就 从 学 习 机 的 内 存 中 抹 去 。 利 用 它 可 以 抹 除 输入 过 程 中 的 
错误 字符 。 

2. [> 键 

称 为 重 打 键 。 毅 下 此 键 , 可 使 光标 右 移 一 格 , 并 使 光标 所 
经 过 的 每 一 个 字符 ,又 重新 复制 到 内 存 里 ， 就 像 重 新 按 下 了 
某 个 键 来 得 到 一 个 新 的 字符 一 样 。 

3，Ctrl-X 

按 下 Ctrl 键 的 同时 涡 X 键 , 可 以 删 去 内 存 输入 行 ,屏幕 
上 显示 “\" 字 符 , 并 回 车 换行 。 

4. Esc 组 合 键 

Esc 是 Escape 的 缩写 ,意思 是 “脱离 ”。 该 键 是 配合 其 它 键 
一 起 使 用 的 ,不 过 这 个 键 的 用 法 比较 特殊 ,只 要 按 一 下 这 个 
键 , 放 开 后 仍 会 起 作用 ,而 不 像 Ctrl 和 Shift 键 那样 要 一 直 按 
住 , 直 到 按 另 一 键 后 才 会 起 作用 。 
常用 的 Esc 组 合 键 有 : 
J Esc-@ 一 一 清 屏 幕 ,光标 移 到 屏幕 的 左上 角 。 
@ Esc-A 一 一 光标 右 移 一 格 。 
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图 Esc-B 一 一 光标 左 移 一 格 。 

@ Esc-c 一 一 光标 下 移 一 行 。 

@ Esc-D 一 一 光标 上 移 一 行 。 

Esc-E 一 一 从 光标 处 开始 清除 到 行 末 。 

@ Esc-F 一 一 从 光标 处 开始 清除 到 屏幕 尾 。 

Esc-I 一 一 光标 上 移 一 行 , 仍 处 于 Ese 方式 。Esc- 和 人 与 
此 泪 同 。 

图 Esc-J 一 一 光标 左 移 一 格 , 仍 处 于 Ese 方式 。Esc- 所 与 
此 相同 。 

@ 轿 Esc-k 一 一 光标 右 移 一 格 , 仍 处 于 Ese 方式 。Esc- 户 与 
此 相同 。 

@ Esc-M 一 一 光标 下 移 一 格 , 仍 处 于 Ese 方式 。Esc-V 与 
此 相同 。 

由 此 可 以 看 到 ,Ese 与 A,B,C,D,E,F,@ 配合 ,执行 后 自 
动 退出 Esc 方式 ,而 与 10,J,K,M 配合 使 用 后 仍 处 于 Ese 方式 ， 
即 按 一 次 Esc 键 后 ,可 以 连续 按 IJKX\、M 键 中 的 任何 一 个 ， 
光标 可 作 连 续 的 相应 移动 。 当 按 其 他 不 与 Esc 组 合 的 键 时 , 才 
退出 Esc 方式 。 

如 果 要 修改 一 个 命令 行 或 程序 行 ,可 先 把 光标 移 到 要 修 
改 的 行 首 (使 用 Esce-I 一 Esc-M) ,用 [> 键 把 光标 移 到 要 改 的 位 
置 ,修改 后 ,再 用 [> 键 将 光标 移 到 该 行 有 用 内 容 的 后 面 , 最 后 
毅 Return 键 。 这 样 该 行 就 被 修改 好 了 。 

例如 ,我们 原先 从 键盘 打 入 下 面 一 条 命令 : 


]PRINT 41 十 12 如 (< 代替 Return 键 ) 
53 (显示 结果 ) 
] 口 ( 品 ] 表 示 显 示 屏 上 光标 ) 


其 中 “十 ?为 错误 字符 ,应 改 为 -号 ,修改 步骤 如 下 : 
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a， 殴 入 Esc 键 , 再 敲 人 键 ,使 光标 移 至 修改 行 的 开始 位 
奸 , 即 
] 口 RINT 41 十 12 
53 
] 
再 融 空 格 键 退出 Esc 状态 。 
b. 使 用 这 键 移 动 光标 至 “十 ?号 位 置 , 再 打 入 “一 ”( 用 
“一 ”代替 “十 ?号 ), 显 示 
] PRINT 41 一 口 2 
c. 使 用 放 键 移动 光标 至 行 末 , 蔽 < 键 以 后 就 可 以 执行 
修改 后 的 命令 。 


$ 1.6 使 用 磁带 存 取信 息 


中 华 学 习 机 内 存 贮 器 中 的 程序 ,在 关机 时 就 会 消失 .为 了 
便于 将 来 重复 使 用 ,可 将 这 些 程序 存 入 磁带 或 磁盘 中 ,下 次 使 
用 时 就 不 必 再 从 键盘 蔽 入 程序 ,只 要 给 机 器 发 出 一 个 读 出 合 
令 ,就 能 够 把 磁带 或 磁盘 中 的 程序 装 到 内 存 贮 器 中 。 

1. 录 音 机 的 音量 调节 

用 作 中华 学 习 机 存 取信 息 的 录音 机 ,必须 事先 认真 调整 
好 音量 ,因为 音量 太 高 或 太 低 , 都 有 可 能 使 信息 传递 发 生 氏 
误 。 

对 于 所 用 的 某 一 录音 机 ,可 以 采用 累 试 法 来 确定 一 个 适 
当 音 量 。 一 般 的 过 程 是 :在 试 装 一 个 程序 时 , 先 将 音量 置 于 较 
低 的 位 置 ,如 果 不 能 工作 ,将 音量 稍 调 大 一 点 再 试 ,反复 几 次 ， 
直至 成 功 地 装 入 程序 为 止 。 另 外 有 些 录音 机 音调 控制 也 对 信 
息 的 正确 读 入 有 影响 。 
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2. 将 BASIC 程序 存 人 磁带 
步 又 如 下 : 
(1) 在 BASIC 状态 下 融 入 要 保存 的 程序 。 
(2) 将 一 盒 空白 磁带 放 入 录音 机 。 一 般 录 音 机 上 均 有 计数 
器 ,应 记 下 每 次 写 带 前 计数 器 的 读数 。 
(3) 吉 入 存 带 命令 ,格式 为 
SAVE“( 文 件 名 2?” 
文件 名 一 般 采 用 一 个 英文 字母 来 表示 。 如 果 我 们 为 存 入 
程序 取 名 为 A， 则 涡 入 
] SAVE “A” 〈 先 不 要 敲 < 键 ) 
(4) 将 录音 机 置 于 “ 录 产 ”次 态 , 即 同时 按 下 录音 机 的 
PLAY 和 REC 两 个 键 。 
(5) 敲 入 < 键 , 屏 幕 上 ! 光 标 马 上 消失 ,大 约 过 10 秒 至 
15 秒 后 ,学 习 机 发 出 “ 哪 ” 的 一声, 即 通知 你 “录入 ”已 正式 开 
始 , 前 十 几 秒 钟 的 空转 是 引导 信号。 录 完 后 ,学 习 机 再 次 发 出 
“ 嘟 "的 一 声 , 屏 幕 上 的 光标 又 重新 出 现 。 
(6) 按 下 录音 机 的 STOP 键 , 并 记 下 计数 器 的 读数 。 
(7) 从 录音 机 内 取出 磁带 ,在 磁带 盒 标签 上 写 上 这 一 段 程 
序 的 文件 名 ,以 及 计数 器 的 起 止 位 置 , 以 备查 用 。 
3. 从 磁带 上 读 取 程 序 
步骤 如 下 : 
(1) 将 磁带 放 入 录音 机 ,并 倒 带 到 程序 录制 时 的 起 始 位 置 
(由 计数 器 上 获知 ) 。 
(2) 从 键盘 上 痪 入 读 带 命令 ,格式 为 
LOAD “( 文 件 名 >? 
例如 ,要 装 入 文件 A, 则 效 入 


] LOAD “A?”<1 


(3) 按 下 录音 机 的 PLAY 键 。 

《4) 殴 入 < 键 , 此 时 机 器 会 开始 读 带 并 寻找 所 要 装 入 的 
程序 。 在 此 过 程 中 ,屏幕 上 会 显示 当前 遇 到 的 文件 名 。 当 遇 到 
的 不 是 所 要 的 程序 时 ,屏幕 会 提示 一 个 反 相 显示 的 字符 “N”， 
并 继续 读 带 ,直到 装 入 LOAD 命令 中 所 给 出 文件 名 的 程序 为 
止 。 在 程序 读 取 完 后 ,机 器 会 发 出 “ 嘟 ”的 一 声 , 屏 幕 上 出 现 光 
标 , 表 示 装 入 完成 。 

《5) 按 下 录音 机 的 STOP 键 , 关 掉 录 音 机 。 

当 把 程序 装 入 内 存 贮 器 以 后 ,采用 命令 

RUN 

便 可 以 启动 程序 运行 。 

如 果 LOAD 命令 不 给 出 文 f 名 ,那么 学 习 机 装 入 的 是 第 
一 次 遇 到 的 程序 。 

在 读 带 过 程 中 ,如 果 学 习 机 没有 任何 反应 ,或 者 显示 出 错 
误 信息 ,那么 应 该 重新 调整 录音 机 的 音量 。 

4. 游戏 磁带 软件 的 调用 方法 

对 于 己 录 有 游戏 软件 的 磁带 ,使 用 方法 如 下 : 

〈1) 把 磁带 装 入 录音 机 ,并 倒 带 到 头 。 

《2) 从 键盘 上 涡 入 "PLAY” 命 令 ( 先 不 要 散 <+ 键 ) 。 

(3) 按 下 录音 机 PLAY 键 , 等 到 磁带 走 稳 后 (大 约 为 3 
秒 ), 再 敲 < 键 。 

〈4) 这 时 屏幕 上 应 显示 

WAITING…… 

当 磁 带 的 游戏 软件 装 入 后 ,学 习 机 会 自动 执行 .此 时 按 下 

录音 机 的 “STOP” 键 。 
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$ 1.7 磁盘 和 DOS 的 使 用 


1 磁盘 及 其 使 用 常识 

中 华 学 习 机 采用 5 十 英寸 的 软磁盘 ,可 以 记录 140K 字 
节 的 信息 。 

软盘 被 封装 在 保护 套 内 , 在 套 的 上 部 开 有 一 个 槽 形 窗 
口 , 称 为 读 写 窗口 ,工作 时 驱动 器 的 磁头 ,就 在 此 窗口 读 写 信 
息 。 在 套 的 一 边 开 了 一 个 口 , 称 为 写 保护 口 , 当 用 不 透 光 的 胶 
纸 封 住 这 个 口 时 ,这 个 软盘 便 是 写 保护 , 即 只 能 读 出 ,不 能 写 
入 ;如 果 没 有 封 住 这 个 写 保 护 口 , 则 可 在 磁盘 上 写 入 信息 。 

软盘 是 存 贮 程序 和 数据 的 地 方 , 一 定 要 掌握 正确 的 保管 
和 使 用 方法 ,以 免 破坏 .丢失 信息 。 

注意 事项 如 下 : 

(1) 严 禁用 手 去 触摸 读 写 窗口 ,严禁 弯 折 磁盘 ,严禁 在 上 
面 写字 。 

(2) 向 驱动 器 里 插 软 盘 时 要 正面 朝 上 ( 贴 有 标签 的 面 ), 动 
作 要 轻 , 然 后 合 上 驱动 器 门 柄 ,才能 对 其 进行 读 写 操作 。 

(3) 当 驱动 器 面板 上 的 红 灯 亮 时 ,表明 计算 机 正在 对 软盘 
进行 读 写 工作 ,此 时 严禁 取出 磁盘 。 待 红 灯 熄 后 , 方 能 取出 或 
更 换 软 磁盘 。 

(4) 平 时 不 用 时 应 将 软盘 装 入 保护 套 中 ,并 放 在 磁盘 盒 
里 。 磁 盘 盒 要 放 在 干燥 而 没有 强 磁场 的 地 方 。 

2. DOS 的 使 用 

DOS 是 英文 Disk Operation System (磁盘 操作 系统 ) 的 缩 
写 , 它 的 一 个 主要 功能 是 帮助 我 们 进行 与 磁盘 有 关 的 操作 。 
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中 华 学 习 机 使 用 的 磁盘 操作 系统 是 Applesoft DOS 3. 3 。 
DOS 3. 3 的 操作 命令 很 多 ,这 里 只 介绍 几 个 常用 的 命令 。 
(1) 列 磁盘 文件 目录 
使 用 CATALOG 命令 可 以 了 解 软 盘 上 已 经 存放 了 哪些 文 
件 。 下 面 是 一 个 典型 的 操作 例 ; 
] CATALOG<1 
DISK VOLUME 254 
火 A 006 HELLO 
A 007 HEX CONVERTER 
火 B 020 PROG5 
T 008 APPLE DATA 
火 A 009 MAIN 
磁盘 编号 显示 在 前 面 ,接着 是 目录 表 。 每 个 文件 占 一 行 ， 
并 分 三 列 : 文 件 类 型 .文件 占用 扇 区 数 、 文 件 名 。 
文件 类 型 及 其 代号 如 下 : 
文件 类 型 代号 文件 类 型 


人 A APPLESOFT BASIC 程序 文件 
I INTEGER ”BASIC 程序 文件 

下 数据 文件 

B 机 器 语言 程序 文件 


在 最 左边 有 星 号 “x ”的 文件 表示 已 被 锁 住 ,被 锁 住 的 文 
件 是 不 能 改变 或 消除 的 ,除非 用 命令 UNLOCK 将 它 开 锁 ( 见 
以 下 命令 LOCK 和 UNLOCK ) 。 

〈2) 保 存 程序 文件 

当 我 们 在 主机 上 编制 了 一 个 BASIC 程序 ,如 果 想 把 它 保 
护 起 来 ,可 以 使 用 SAVE 存盘 命令 。 

例如 ,我 们 殴 入 以 下 程序 : 

10 A 一 3 
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20 PRINT  A 
再 融入 以 下 命令 : 
] SAVE PROG<l! 
便 把 土 述 程序 存 入 磁盘 上 。 
为 了 验证 一 下 ,可 散 入 CATALOG 列 目 雪 , 可 见 PROG 
已 经 保存 在 磁盘 上 。 
《3) 装 入 程序 文件 
使 用 LOAD 命令 ,可 以 把 磁盘 中 指定 的 BASIC 程序 文件 
调 入 内 存 , 例 如 , 敲 入 
] LOAD PROG-1 
便 可 把 PROG 程序 装 入 内 存 。 如 要 执行 ,可 以 融入 RUN 命 
令 。 
《4) 文 件 的 删除 
如 果 有 的 文件 没有 保存 价值 了 ;可 利用 'DELETE 命令 将 
其 删除 。 例 如 , 毅 入 
] DELETE，PROG<1 
便 可 以 消除 PROG 文件 。 
(5) 文 件 的 加 锁 
为 了 防止 由 于 错误 操作 而 将 盘 上 有 用 文件 删除 看 ,我们 
可 以 用 LOCK 将 这 些 文件 加 锁 , 可 殴 入 
] LOCK PROG<+4 
当 我 们 再 用 DELETE ”PROG 命令 来 删除 时 ,系统 将 显示 
“FILE LOCKED?( 文 件 已 锁 住 ) 的 信息 。 若 需要 删除 加 锁 文 件 ， 
可 以 用 解锁 命令 。 
(6) 文 件 的 解锁 
UNLOCK 命令 可 以 为 加 锁 的 文件 解锁 。 例 如 


] UNLOCK .PROG<: 


(7) 更 改 文 件 名 

用 RENAME 命令 ,可 以 将 磁盘 上 的 文件 名 进行 更 换 , 例 
如 要 将 PROG 文件 改名 为 FILE, 可 打 入 以 下 命令 

] RENAME PROG FILE< 

(8) 磁 盘 格 式 化 

使 用 新 磁盘 之 前 ,必须 先 对 它 进 行 格式 化 处 理 。 格 式 化 的 
目的 是 在 磁盘 上 划分 地 址 ,便于 该 写 文件 时 , 按 地 址 查找 。 当 
盘 片 被 格式 化 时 ,会 被 抹 去 其 中 原 有 的 文件 ,所 以 在 格式 化 磁 
盘 之 前 ,必须 先 确认 盘 片 中 的 文件 是 否 还 有 用 。 

格式 化 的 操作 步 又 如 下 

1) 把 需要 格式 化 的 磁盘 插入 驱动 器 里 ; 

2) 格 式 化 命令 需要 使 用 一 个 BASIC 程序 ,这 个 程序 叫做 
“引导 程序 ”为 此 , 先 敲 入 NEW 命令 ,再 融入 一 个 引导 程序 。 
以 下 是 引导 程序 的 一 个 简单 例子 : 


10 HOME 
20 PRINT “您 好 ,欢迎 您 使 用 中 华 学 习 机 ” 
30 “END 
这 个 程序 的 作用 是 先 将 屏幕 清除 干净 ,然后 显示 “您 好 ， 
欢迎 您 使 用 中 华 学 习 机 .引导 程序 也 可 以 是 空 程序 或 某 一 个 
应 用 程序 。 
3) 阁 入 命令 
] INIT HELLO-+ 
其 中 INIT 为 格式 化 命令 词 ,HELLO 为 引导 程序 文件 名 。 
这 时 机 器 便 开 始 对 磁盘 进行 格式 化 了 ,大约 30 秒 可 以 完 
成 。 当 驱动 器 上 指示 灯 熄 灭 之 后 ,屏幕 上 出 现 提示 符 和 光标 ， 
就 说 明 格 式 化 操作 已 经 完成 。 
经 过 格式 化 处 理 的 磁盘 都 存 有 DOS 操作 系统 和 引导 程 
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序 文件 ,这样 的 磁盘 可 以 作为 操作 系统 的 引导 盘 进行 启动 。 
引导 程序 是 在 执行 INIT 命令 之 前 键入 内 存 的 ,以 后 只 要 使 用 
该 格式 化 盘 启动 ,引导 程序 文件 即 被 调 入 内 存 并 被 执行 (其 余 
的 程序 必须 使 用 LOAD RUN 等 命令 才 被 调 入 和 执行 ) 。 

现在 我 们 蔽 入 启动 命令 (不 要 取出 刚 格式 化 的 磁盘 ): 

] PR #6< 
屏幕 便 出 现 如 下 信息 : 
您 好 ,欢迎 您 使 用 中 华 学 习 机 

这 就 表明 格式 化 的 盘 可 以 开始 使 用 了 。 

(9) 磁 盘 文 件 的 复制 

把 有 用 信息 仅 存放 在 一 个 磁盘 内 是 不 保险 的 ,万 一 该 盘 
受 损 坏 ,就 会 使 盘 内 信息 遭受 到 永久 性 破坏 .为 此 有 必要 把 有 
用 的 磁盘 文件 复制 成 若干 个 副本 。 

1) 复 制 一 个 程序 文件 

要 复制 一 个 BASIC 程序 文件 ,可 先 从 盘 中 读 出 (用 LOAD 
) 原 文件 ,然后 再 存 入 (用 SAVE ) 另 一 指定 的 磁盘 里 。 

2) 复 制 整个 盘 的 所 有 文件 

一 个 盘 的 复制 可 以 借助 于 系统 主 磁盘 (随机 供应 一 种 
DOS 3. 3 系统 主 磁盘 ) 的 COPYA 程序 。 

在 使 用 命令 之 前 , 先 将 系统 主 磁盘 插入 驱动 器 里 ,然后 敲 
入 如 下 命令 ， 

] RUN COPYA-<l 

当 系 统 接受 这 个 命令 后 ,就 会 提示 使 用 者 插入 源 盘 和 目 
的 盘 。 在 复制 之 前 ,计算 机 还 会 自动 先 对 目的 盘 ( 用 来 记 入 内 
容 的 盘 ) 进 行 格式 化 。 

以 上 介绍 的 是 两 种 常用 的 复制 方法 .在 DoS 3. 3 系统 主 
磁盘 中 ,还 有 一 个 功能 很 强 的 复制 工具 一 一 FID ,该 程序 可 以 
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复制 一 个 .多 个 或 整个 盘 的 任何 类 型 的 文件 .调用 命令 为 


] BRUN FID<l 


$ 1.8 使 用 打印 机 


1. 西 文 方式 下 的 输出 控制 

中 华 学习 机 把 显示 器 当 作 平常 的 输出 设备 ,因此 ,在 一 般 
情况 下 使 用 LIST 命令 和 PRINT 语句 均 会 将 要 输出 的 内 容 显 
示 在 显示 屏 上 。 如 果 想 在 打印 机 上 输出 ,必须 采用 PR ##1 命 


令 。 敲 入 
10 PR##1 (输出 送 至 打印 机 ) 
20 PRINT “ZHONG HUA XUE XIL JIL” 
30 PR #0 (输出 不 送 至 打印 机 ) 


执行 后 在 打印 纸 上 便 打出 “ZHONG HUA XUE XI 
JI "字样 。 
以 下 是 几 个 常用 的 控制 命令 
换行 一 一 PRINT CHR $ (10) 
换 页 一 一 PRINT CHR $ (12) 
字体 放大 2 倍 一 一 PRINT CHR $ (14) 
字体 缩小 2 倍 一 一 PRINT CHR $ (15) 
字体 还 原 - 一 -PRINT CHR$ (18) 
预 轻 每 行 字 符 数 n 一 一 POKE 1675，,n 
2. 中 文 方式 下 的 输出 控制 
在 中 文 方式 下 ,要 使 用 BASIC 的 POKE 语句 来 控制 打印 
机 工作 ,其 方法 如 下 : 
(1) 设 置 打 印 方式 
格式 :POKE 1695,n 
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其 中 ,= 0 表示 不 打印 ,n=1 一 15 置 打印 状态 ,并 选择 对 
应 的 一 种 字 型 来 打印 .系统 定义 了 15 种 汉字 字 型 。 进 入 汉字 系 
统 后 ,打印 方式 自动 置 为 0。 

(2) 设 置 字 间 上 距 

格式 :POKE 1787 

其 中 m 为 所 打印 的 2 六 下, 取 值 范围 为 0 一 255, 即 字 间 距 
可 在 0 一 255 个 点 之 间 .。 进 入 汉字 系统 后 , 字 间 距 自 动 置 为 1。 

(3) 设 置 行距 

格式 :POKE 1915,n 

其 中 ,n 为 所 打印 行 的 间距 ,n 取 值 范围 在 0 一 255, 即 行 
间距 在 0 一 255 个 点 之 间 。 进 入 汉字 系统 后 , 行 间 距 自动 置 为 1。 

(4) 设 置 行 允 许字 数 

格式 :POKE 2043,n 

其 中 ,n 为 一 行 允 许 打 印 的 汉字 字数 ,n 取 值 范围 是 0 一 
255 之 间 。 进 入 汉字 系统 后 , 行 允 许字 数 自动 置 为 40。 

例 _ 用 15 种 字 型 打印 “中 华 学 习 机 ”。BASIC 程序 如 下 : 


10 HOME 

20 C$ 一 “中 华 学 习 机 ?” 

30 POKE 1787,2 ( 字 距 为 2) 
40 POKE 1915,2 (行距 为 2? 


50 FOR I=1 TO 15 

60 POKE 1659, 工 (设置 字 型 ) 

70 PRINT C$ 

80 NEXT I 

90 POKE 1659,0 (关闭 打印 机 ) 

100 END 

运行 上 述 各 这 后 , 便 把 “中华 学 习 机 ”以 15 种 字 型 输出 打 

印 在 打印 纸 上 。 


第 二 章 “打字 指法 训练 


中 华 学 习 机 使 用 的 键盘 , 沿 ， 头 文 打字 机 的 键 位 安排 ,所 
以 它 的 操作 指法 和 英文 打字 指法 相同 本 章 介绍 一 种 快速 输 
入 方法 一 一 “触觉 击 键 法 ”, 这 种 输入 方法 的 主要 特点 是 规定 
指法 和 不 看 键盘 击 键 , 它 可 以 充分 发 挥 每 个 手指 的 触觉 能 力 ， 
而 不 必 再 用 大 脑 去 揣 摸 ,或 用 眼睛 去 观察 ,这 种 方法 适用 于 英 
文字 符 的 输入 ,也 适用 于 中 文字 符 的 输入 。 


$2.1 键盘 的 指法 分 区 管理 


如 何 才能 使 键盘 输入 准确 快速 ? 必须 多 练 , 还 要 讲求 训 
练 的 方法 。 

1， 键 位 和 指头 的 分 区 

一 个 中 华 学 习 机 CEC-I 键盘 共有 69 个 键 , 而 一 个 人 两 只 
手 只 有 十 个 指头 ,如 何 运用 十 个 指头 来 管理 这 些 键 呢 ? 最 好 
办 法 是 对 十 个 指头 进行 恰当 的 分 工 , 这 就 是 键盘 的 指法 分 区 
管理 。 

我 们 将 键盘 分 成 左右 两 大 部 分 , 见 图 2. 1 所 示 。 这 两 部 
分 分 别 由 左 , 右 手 负责 控制 .同样 ,为 了 将 键 位 落实 到 每 一 个 
指头 ,又 分 别 将 左右 端 由 三 条 线 各 自分 成 四 个 小 区 ,每 一 个 小 
区 由 相应 的 一 个 指头 负责 进行 管理 空格 键 闹 给 左右 手 的 大 
拇指 控制 。 
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右手 


中 指 过 小 指 


mn mac 
Do 
PE 到 


2 基准 键 位 

所 谓 基准 键 位 ,就 是 指头 的 常 驻 键 位 ,从 图 2. 1 中 的 指法 
分 区 可 见 , 一 个 指头 要 负责 管理 四 排 的 键 位 ,也 就 是 说 ,操作 
时 指头 必须 上 下 行 移动 ,因此 基准 键 位 确定 在 中 间 行 上 最 好 。 
因为 这 样 指头 上 下 移动 的 平均 距离 最 短 , 响 应 的 平均 速度 最 
快 ,由 于 移动 距离 短 ,指头 错位 的 可 能 性 也 相应 较 小 .在 该 行 
中 ,为 使 左右 移动 方便 ,又 将 ASDF 和 JKL; 这 八 个 键 位 确定 
为 基准 键 位 ,基准 键 位 和 指头 的 对 应 关系 如 图 2. 2 所 示 。 平 
常 我 们 的 手指 头 放 在 基准 键 位 上 ,等 待 输入 字符 。 当 骆 击 了 所 
需 字符 键 之 后 ,指头 又 必须 缩 回 到 基准 键 位 上 待命 。 


人 


小 指 无 名 指 “中指 中 指 无 名 狂人 和 无 名 指 
0 
左手 


图 2. 2 ”基准 键 位 示意 图 


% 2.2 ， 击 键 的 姿势 和 方法 


击 键 的 姿势 和 动作 是 否 正确 ,直接 关系 到 输入 的 速度 和 
准确 性 ,因此 初学 者 一 开始 就 要 养 成 良好 的 习惯 。 

1 击 键 姿势 

《1) 将 显示 器 放 在 键盘 的 正 后 方 ,左边 留 出 放置 输入 原 
稿 , 以 便于 阅读 。 操 作 时 ,眼睛 注视 屏幕 或 稿件 ,不 看 键盘 , 指 
头 赁 键 的 位 置 找 键 。 

《2) 坐 椅 高 度 应 调 到 适当 的 位 置 , 以 便 手 指 操作 .上 身 稍 
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向 前 倾 ,两 脚 平 放 在 地 上 ,坐姿 端正 。 

(3) 两 肘 轻 轻 贴 于 腋 边 ,两 手 如 弓形 ,手指 轻 放 于 基准 键 
位 上 ,手腕 蕙 空 平 直 。 

2、 击 键 方法 

(1) 严 格 按 手指 划分 的 范围 和 分 工 击 键 , 击 键 时 要 贡 键 ， 
而 不 要 压 或 按键 。 

(2 两 手 与 前 臂 平 直 ,全 部 动作 只 限于 手指 部 分 ,身体 其 
它 部 位 不 能 接触 工作 台 和 键盘 。 

(3) 从 手腕 到 指 尖 的 手指 形成 弧 形 ,指头 的 第 一 关节 与 键 


位 成 垂直 角度 , 见 图 2. 3 a。 


和 
只 “上 嘿 


、 (b) 
(a) 


图 2. 3 

《4) 输 入 字符 时 , 手 抬 起 ,只 有 要 击 键 的 手指 才 伸 出 去 击 
键 , 击 键 后 立即 缩 回 到 基准 键 位 。 

《5) 击 键 时 以 指 尖 垂直 触 键 ,力量 要 在 瞬间 爆发 出 来 ,并 
立即 反弹 回去 , 见 图 2. 3(b) 。 用 力 必须 适度 ,声音 要 清脆 ,有 
节拍 感 。 

(6) 击 键 时 每 个 手指 都 应 能 运用 自如 ,采用 手指 动作 来 带 
动手 腕 等 部 位 ,而 不 是 手腕 动作 来 带动 手指 。 
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8 2.3 ”字符 输入 方法 和 练习 


下 面 将 按照 循序 渐进 的 原则 ,分 组 介绍 各 个 字符 的 输入 
方法 。 读 者 可 按照 以 下 介绍 的 方法 和 顺序 进行 练习 。 
上 输入 ASDF 和 JKL; 
ASDF 和 下 L; 是 基准 键 位 上 的 八 个 键 , 应 该 首先 练习 和 
熟练 掌握 。 练 习 方法 如 下 : 
(1) 将 左右 手 的 指头 轻 放 在 对 应 的 八 个 基准 键 位 上 。 
(2) 击 键 时 要 注意 用 力 适 度 和 击 键 的 节拍 感 ， 
(3) 任 手指 的 位 置 感觉 来 击 键 。 如 果 一 时 不 习惯 而 打 乱 
了 ,应 该 将 指法 调整 正确 后 再 继续 练习 。 
以 下 例 1 至 例 47 各 练 10 遍 ,在 未 练习 空格 字符 输入 之 前 ， 
字符 间 的 空格 可 以 暂时 不 管 。 
例 1 以 下 采用 左手 练习 ,从 小 指 开始 按 左 到 右 的 顺序 贡 
键 。 
小 指 无 名 5 中 指 食 术 
AAAAA SSSssSS DDDDD FEFFEFF 
例 2 ”以 下 采用 右手 练习 ,从 小 指 开始 按 右 到 鞍 的 顺序 裔 


小 指 无 名 指 中指 食指 

JJJJJ KKKKK LLLLL 3 
例 3 DEFAS;LKJ DFAS;LKJ DFAS;LKJ 
例 4 :KKL;FDSA 下 L;FDSA FLIFDSA 
例 5 SAFDL;J SAFDL;JK SAFDL;JK 
例 6” AJSKDLF; AJSKDLF; A;LSDKJF 

A;LSDKJF LD;KJAFS LD;KJAFS 
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例 7 


ADL;AS;AFD;:KAD;SALKJ;FS;S; 
SADAD 5SDAL;DADFALL;KDSS;LAS 
SKD;JASSIKDLL; ;LAS 


2. 输入 EI 和 GH 
根据 键 位 分 区 ,E 和 I 键 分 别 由 左手 的 中 指 和 右手 的 中 


指 来 管理 。 


敲 键 方法 是 ， 


〈1) 指 头 放 在 基准 键 位 上 。 
〈2) 左 手中 指 上 移 敲 E ,右手 中 指 上 移 散 I。 
《3) 击 键 完毕 ,左右 手 的 中 指 缩 回 到 基准 键 位 上 。 


例 8 
例 9 


例 10 
例 11 


例 12 


DEDEDEDED KI 攻 天下 天 环 IKI 
IDEDKIKI”，KIIKDEDR  KIKEDKK 

DKDEDKDK 

LIAE;FEJI; SELIDIJE EDAEDK 

ALAD FELL; A LAD SELLS SKSIL; 
SAID; LEFAA; ALES; 

FAIL LAID FAIL FILE FESA DISK 
DISSK LIFE LEAK SKILL .FAIL FFAAIILL 
DHES SLAKE FIELDS FIELDS 


G 和 H 键 夹 在 八 个 基准 键 位 之 间 ,它们 分 别 由 左手 的 食 
指 和 右手 的 食指 管理 。 


例 13 
例 14 


例 15 


FEGFGFGFGFG JHJHJHJHJH  GHGHGH 
HIGH FLAGE HIDE;HALEF GESS 
HIAG;EGEG IIHIH;EHGIGI 、 

HJKLA  DLKJIH ASDFG  GSAFD; 
GSKDIJHJLA .HSHAJIDK 


3 输入 空格 
空格 键 由 大 拇指 控制 , 击 键 方法 是 : 
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(1) 手 指 放 在 基准 键 位 上 。 
(2) 右 手 从 基准 键 位 垂直 上 抬 约 1 厘米 ,大 拇指 横着 向 下 
击 空格 键 。 
(3) 击 键 完 毕 , 手 指 立 即 缩 回 基准 键 位 上 。 
例 16 HIDEDLSALLLDHISLFIELDSLJLIKELLIKEL ， 
SAFESLJLIKES 
其 中 一 代表 空格 字符 ,以 后 书写 时 ,空格 字符 就 用 一 个 空 
白 来 表示 。 
4 输入 回 车 键 
回 车 键 在 键盘 上 用 "Return? 来 表示 ,为 简便 起 见 , 我 们 常 
用 < 表示 , 它 由 右手 的 小 指 来 控制 。 击 键 方法 是 ， 
(1) 手 指 放 在 基准 键 位 上 。 
〈2) 抬 右手 , 伸 小 指 击 <! 键 。 
(3) 击 键 完 毕 手指 立即 回 退 到 基准 键 位 。 回 退 过 程 中 小 指 
要 提前 弯曲 ,以 免 磁 到 其 它 键 。 
例 17 FILL<! AASDF<l JJIL- EEKGH AIGS<+ 
例 18 L GH<l SIDES;<l EEIGH HIL< 
在 开始 练习 阶段 ,要 把 指法 操作 的 正确 性 放 在 第 一 位 ,不 
要 言 目 追 求 输入 速度 。 
5. 输入 RTUY 
RT 由 左手 的 食指 管理 ,而 UY 由 右手 的 食指 管理 。 
例 19 
左手 食指 ”右手 食指 ”左手 食指 “右手 食指 
产 -人 人 人 一 -一 和 全 广 -一 全 
RRRRR ” UUUUU TITIT YYYYY 
例 20 RTRTRT  FRFRFR JUJUJUJU 
JYJYJYJYJY 
例 21 LAST RIGHT LADY LASH  GRTEE 
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HALT DUSK DDUSTTY 

例 22 A FIRST TALKE; A LETTER 和 
LETTER;， TAKE SUGGEST<l AT 和 
FUTURE; 
DATA; THE RESET JIS _ JUST ATA 
LEAST A YEAR<L USE THE REGULAR 
RATE;RSET 
A _ LITTLE; AFTER THAT; DATE Ai<l 
SAFE RIGE FREE RIDES<1 LETTER; 
SUGGEST FURTHER TESTS; 


6. 输入 QWPO 
QW 分 别 由 左手 的 小 指 和 无 名 指 来 管理 ,而 PO 分 别 由 
右手 小 指 和 无 名 指 来 管理 。 
小 指 无 名 指 


PQPQPQPQP ”WOWOWOWOWO 


例 24 POPOPOPO QWQwQwQw  QoQoQoQaQ 
PWPWPPP QWPOWQOP 

例 25 YOU OWN YOUR; DELETE;<L THAT 
THE JEWELS ARE<! OUR PORRSTTY; 
FOLLOW<L THE PATH AS FAR TIS 
IS;，， IT ORDER;，IT JIS QUIT< 
SHORT;， GOOD DEAL<l 

例 26 A LOT OF A PAIR OF; A GOOD 
DEAL A<lIT IS GOOS FOR 
THEHEALTH; 
TO GET UP EARLY<! OF ADD TO 
< ALLOVW 
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OR PORT FOLLOW AS OR AS SUP 
AS; LET< US GO TO THE PARK ;< 
7. 输入 ,，. SHIFT 一 > 
SHIFT 键 用 于 控制 换 档 ,如 | “|, 当 先 压 人 SHIFT 键 并 保 
持 住 ,再 按 该 键 ,那么 就 取得 “一 "符号 。 
为 操作 方便 起 见 ,键盘 的 左右 两 端 均 设 有 一 个 SHIFT 
键 ,两 键 作用 相同 。 
由 键 位 分 区 图 可 见 ,SHIFT 是 由 小 指控 制 的 ,如 果 待 输入 
的 字符 是 由 左手 控制 的 ,那么 必须 先 用 右手 的 小 指 压 信 
SHIFT 键 , 再 用 左手 的 相应 指头 击 字符 键 ;如 果 待 输入 的 字符 
是 右手 控制 的 字符 ,那么 先 用 左手 的 小 指 压 住 SHIFT 键 .只 
有 当 上 端 字符 巷 入 后 , 按 SHIFT 键 的 小 指头 才能 缩 回 到 基准 
键 位 上 。 


[上 耸 别 由 夏 手 的 中 指 和 无 名 指 管理 。 


例 27 
右手 中 指 ”右手 无 名 指 


99999 和， 


例 28 
< 

例 29 IF A<< >K GOTO PRO 

例 30 IF AD>>KP 志 >> 0G.,FEW.OR,A 

8. 输入 VBMN 

VB 和 MN 分 别 由 左右 手 的 食指 管理 。 

有 左手 食指 右手 食指 左 于 食指 右手 食指 


VVVVV “MMMMM BBBBB NNNNN 
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例 32 VNVNVNVN MBMBMBMB  _BNBN  MVMV 
例 33 ABABA BENVEM EFVEFV JINJIN< 
例 34 I AM 和 A PEASANT.HE IIS FROM 
KWANGCHOW < HOLIDAYS FROM TO- 
MORROW. THE SNOW JIS ABOUT< WE 
GET UP AT HALF PAST< SIX 
EVERY MORNING. -1 
141) NM 
9. 输入 XZC 
XZC 三 个 键 位 于 键盘 的 左 端 ,它们 分 别 由 左手 的 小 指 
无 名 指 和 中 指 管理 。 
小 指 “ 无名指 中 指 
例 38 二 人 二 全 大 
ZZZZZ ”XXXXX CCCCC 
例 36” ZCZCZCZC BZBZBZ MXMXMX-< 
例 37 ”ZECZECZEC CODECODECODE SEXM< 


ZOOMZOOM 
例 38 SEX CHILDREN  XCUT SITING ON THE 
BRANCHES IT-< HOW GOT ARE 


YOU. THE ”TREE THE BUTTEERFLIES 
CITY ZONAL ABOUT<L MISCOUN; < 

10. 输入 数字 1 一 0 

十 个 数字 键 由 对 应 左右 手 的 各 个 手指 管理 。 根 据 输入 情 
况 可 采取 两 种 不 同 的 击 键 方式 。 

(1) 通 用 式 击 键 方式 

这 种 击 键 方式 跟前 面 介绍 的 一 样 ,就 是 当 输 入 数字 时 , 必 
须 从 基准 键 位 出 发 , 击 键 完毕 后 再 回 到 基准 键 位 .这 种 方式 适 
合 于 数字 和 字符 混合 出 现 的 情况 。 


。29 。 


例 39 YY2Y2Y2Y2Y2Y; 1.1.1:1.1.，  B3B3B3 < 
C8C8C8C8;  D9,D9,D9,D9  K4K4K4K4; 
F5F5F5F5 <  J7J7J7J M6M6M6M -< 
.TITITIT1ITIT1 
例 40 1237865094 9347528106<- 
例 41 1lST 2ND 3RD 4TH 5TH 6TH < 8TH 
9TH 10TH; .OIC 23D 45E 67F 89G 
例 42 ONE 1，TWO 2，THREE 3，FOUR 14 
< FIVE 5，SIX 6，SEVEN 7，EIGHT 
8; NINE 9，TEN 10， ELEVEN 11， 
TWELVE 1244 
《2) 基 准 式 击 键 方式 
这 种 击 键 方式 ,就 是 将 数字 1234 和 7890 作 为 基准 键 位 来 
处 理 。 输 入 数字 时 ,我们 将 手指 放 在 对 应 的 数码 键 位 上 , 涡 完 
一 个 数字 后 不 必 缩 回 到 原 定 的 字母 基准 键 位 ,而 只 需 返 回 到 
数字 基准 键 位 上 ,这样 可 以 提高 输入 数字 的 速度 ,适用 于 成 批 
的 数字 输入 。 
例 43 23904586417806728 227735860943 
7421887<1 
例 44 18543 ”37569 10700 84357 “33307 < 
60536 80221 13459 96417 93907 89735 
14658 28871<+ 
11. 输入 其 他 字符 
键盘 上 其 他 一 些 字 符 , 如 十 一 x/( ) # 等 ,也 是 由 相应 
手指 控制 的 ( 见 图 2. 1 ), 只 要 我 们 熟悉 了 击 键 的 基本 方法 ， 
那么 这 些 字符 的 输入 是 不 难 掌握 的 ， 


二 三 王 寺 径 十 十 十 十 十 “# 井 站 直 林 炎炎 火 炎炎 
()()()()() II OOCOOC+l 
&&R&R&R&R ?7?7??? .………. 和 $$$< 

例 46 XT+TYxA/CBxCT5xAxD)>400 .AND. 

M 一 “ABC” 十 “DEF”<! 
例 47 IF 5x*X=Y/4 .OR. A< >B THEN< 

TCD 王 T(GD 十 2< 
ELSE -< 
TD=TGD 十 3:X=1 -< 

END IF < 

至 此 ,键盘 输入 基本 方法 介绍 完毕 。 要 熟练 运用 键盘 , 关 
键 在 于 勤学 多 练 , 熟 能 生 巧 。 


8 2.4 进一步 训练 


在 初步 掌握 了 “触觉 击 键 法 ?以 后 ,就 可 以 自选 一 些 程序 
清单 .书稿 等 作为 操作 练习 。 可 以 反复 练习 输入 某 个 题目 , 直 
到 达到 一 定 速度 并 完全 没有 错误 为 止 。 

在 练习 中 ,可 以 根据 情况 采用 一 些 灵 活 的 击 键 方法 。 例 
如 ,如 果 遇 到 有 多 个 相同 的 字符 ,可 以 不 必 击 一 键 就 回 到 基准 
键 位 ,而 可 以 连续 融入 后 再 回 到 基准 键 位 待命 ,如 果 下 一 个 待 
输入 的 字符 离 刚 击 的 键 最 近 , 也 可 以 不 必 回 到 基准 键 位 而 直 
接 击 键 。 在 比较 熟练 的 情况 下 ,还 可 以 跳 过 基准 键 位 而 直接 转 
到 另 一 行 去 击 键 ,同一 手指 管辖 的 相 邻 字 键 也 可 以 连 击 。 

在 练习 中 ,要 有 意识 地 训练 手指 的 灵活 性 和 快速 阅读 文 
稿 , 提 高 动作 频率 .力争 每 天 训练 一 小 时 以 上 , 这 样 坚持 2 一 3 
个 月 ,一 定 能 大 大 的 提高 输入 速度 。 


第 三 章 ” 汉 字 输 入 法 


中 华 学 习 机 与 其 他 学 习 机 相 比 ,突出 的 优点 是 增加 了 汉 
字 功 能 ,这 为 我 们 的 使 用 带 来 了 很 大 的 方便 。 

在 实现 方法 上 ,中 华 学 习 机 采用 了 固化 ROM (只 读 存 贮 
器 ) ,把 汉字 的 编码 都 做 在 几 片 非常 小 的 集成 电路 块 上 ,这 样 
可 不 占用 内 存 贮 器 空间 ,同时 也 提高 了 查找 汉字 的 速度 。 


$ 3.1 汉字 系统 的 启动 与 退出 


1. 汉字 系统 的 进入 
在 加 电 后 系统 自动 处 于 西 文 BASIC 系统 ,屏幕 显示 为 低 
分 辩 率 字符 方式 , 即 整 个 屏幕 可 显示 24 行 ,每 行 40 个 字符 。 此 
时 敲 入 “中 文 ? 键 , 则 进入 中 文 BASIC ,屏幕 显示 方式 为 高 分 
辩 率 图 形 方式 ,全 屏幕 可 显示 10 行 ,每 行 17 个 汉字 ,第 11 行 ( 底 
行 ) 为 状态 提示 行 ,显示 一 些 提 示 信 息 。 
进入 汉字 系统 后 ,系统 处 于 字母 输入 方式 ,这 时 从 键盘 输 
入 的 是 ASCII 字符 ,通过 敲 下 “Fl1? 一 “F5? 功 能 键 可 以 选择 不 
同 的 汉字 输入 方式 。 功 能 键 的 定义 如 下 : 
F1 (CTRL-A ) 一 一 字母 状态 
F2〈 CTRL-L ) 一 一 拼音 字母 状态 
F3 (CTRL-W ) 一 一 区 位 码 输入 状态 
F4 (CTRL-T ) 一 一 未 用 
F5 (CTRL-F ) 一 一 未 用 
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2 汉字 系统 的 退出 
在 中 文 状 态 下 ,直接 敲 入 “ 西 文 ” 键 , 便 可 退出 中 文 状态 ， 
进入 西 文 BASIC 状态 。 


$ 3.2 拼音 输入 法 


在 进入 汉字 状态 后 , 按 下 “F2" 键 (或 CTRL-L) 后 ,屏幕 提 
示 行 将 显示 "拼音 "两 字 , 表 示 进 入 拼音 输入 方式 。 

中 华 学 习 机 采用 全 拼音 输入 . 当 查 找 一 个 汉字 时 ,必须 将 
该 汉字 的 音节 按 声母 ,前 母 依次 才 和 ,系统 根据 输入 的 音节 在 
提示 行 上 显示 出 所 有 的 同音 节 汉 字 , 包 括 不 同 声调 的 汉字 , 供 
操作 者 选择 。 

音 答 入 法 使 用 26 个 字母 键 作为 输入 码 , 查 找 一 个 汉字 

最 多 键 和 6 个 字母 ,大 小 写字 母 均 可 ,其 输入 过 程 可 以 分 以 下 
几 步 

(CD 攻 入 声母 .此 时 屏 奖 提示 行 上 显示 出 以 该 声母 开头 的 
音节 中 最 常用 的 6 个 汉字 , 若 其 中 有 要 输入 的 汉字 ,只 要 蔽 入 
相应 的 序号 (每 个 汉字 之 前 都 有 序号 ) 即 可 。 

(2) 键 入 前 母 

(3) 向 前 或 者 向 后 寻找 同音 字 . 当 葵 入 韵母 之 后 ,屏幕 提 
示 行 显示 出 6 个 同音 节 字 , 若 这 6 个 同音 字 中 没有 要 输入 的 汉 
字 , 可 项 入 | > | 刍 , 这 时 在 屏幕 状态 提示 行 又 会 显示 出 下 一 


六 个 同音 节 字 , 若 还 没有 可 继续 贡 | > | 刍 ,直到 计算 机 发 出 “ 电 
哪 " 声 , 表 示 已 全 部 显示 完 . 当 你 要 寻找 前 一 屏幕 汉字 时 ,可 项 
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|[ 短 此 时 前 一 屏幕 的 6 个 汉字 又 显示 在 提示 行 上 。 


(4) 敲 入 所 选择 的 序号 。 当 状态 提示 行 上 出 现 要 输入 的 汉 
字 时 ,只 要 敲 入 该 汉字 前 面 的 序号 ,该 汉字 就 显示 在 屏幕 光标 
位 置 上 .连续 打 入 序号 ,可 连续 输入 汉字 。 

(5) 删 除 。 输 入 过 程 中 , 若 拼音 码 敲 错 了 ,可 直接 按 < 键 ， 
此 时 提示 行 上 最 后 一 个 拼音 字母 就 被 删除 。 当 状态 行 上 的 拼 
音字 母 都 删除 掉 之 后 ,再 按 急 键 , 则 删除 正文 信息 的 最 后 一 个 
汉字 。 

例 1 输入 “中 ? 字 ,操作 方法 是 : 

1) 进 入 汉字 状态 后 , 殴 F2 键 进 入 拼音 输入 方式 。 

2) 殴 入 “中 ? 字 的 汉语 拼音 字母 “ZH”, 屏 幕 提 示 : 

拼音 :ZH 1 这 2 主 3 中 4 种 5 着 6 争 
“显然 ,所 需 的 “中 ? 字 已 经 出 现 了 。 

3) 敲 序号 取 字 。 这 时 融入 数字 3， 中 ? 字 便 取 到 了 。 

最 后 再 介绍 一 下 输入 特殊 符号 的 方法 。 

在 实际 应 用 中 ,经 常 涉 及 到 一 些 特 殊 符号 ,如 四 @G) 之 
>， 以 及 r3 rc34 二 等。 查找 这 些 符 号 除了 采用 区 位 码 外 ,还 
人 允许 在 拼音 方式 下 取得 .具体 查找 的 方法 是 :在 进入 拼音 方式 
后 , 毅 入 “一 ”( 减 号 )“ 王 ”( 等 号 ) 和 /2”( 斜 线 ) 来 分 别 选 择 输 
入 标点 符号 ,算术 运算 符号 和 制 表 符 。 


$ 3.3 区 位 码 输入 法 


在 汉字 系统 状态 下 , 痪 “F3?” 键 (或 CTRL-W) 后 ,屏幕 提示 
行将 出 现 *“ 区 位 ”字样 ,表示 当前 处 于 区 位 码 输 入 方式 。 
区 位 码 输入 方式 使 用 国家 标准 GB2381-80 区 位 方式 输 
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入 汉字 。 在 输入 汉字 时 , 仅 使 用 0 一 9 共 十 个 数字 码 ,每 个 汉字 
和 图 形 字符 只 需 用 四 位 数字 表示 ,前 二 位 表示 汉字 所 在 的 区 
号 ,后 二 位 表示 汉字 所 在 区 号 中 的 位 号 采用 区 位 码 来 输入 汉 
字 是 简单 的 ,只 要 在 区 位 码 输入 方式 下 ,融入 某 汉 字 的 区 位 码 
值 , 所 需 汉 字 就 自动 取 到 屏幕 光标 处 。 

在 用 区 位 码 输入 汉字 的 过 程 中 ,如 果 输 入 码 敲 错 , 可 用 < 
键 来 删除 ,如果 输 入 的 区 位 码 值 不 在 国标 码 所 规定 的 范围 内 ， 
系统 会 发 出 “ 哪 哪 ”" 声 警告 用 户 , 并 拒绝 接收 这 样 的 区 位 码 , 等 
待 用 户 重新 敲 入 或 删除 修改 。 

下 面 仍 以 “中 ? 字 为 例 , 说 明 如 何 用 区 位 码 来 输入 汉字 。 

1) 逆 F3 键 进入 区 位 码 输 入 方式 。 

2)“ 中 ?" 字 在 第 54 区 中 的 第 48 位 (可 以 查 表 ) ,因而 其 区 位 
码 值 是 5448。 

3) 敲 入 "中 ? 字 的 区 位 码 值 5448, 则 屏幕 上 立即 出 现 “ 中 ?” 
字 。 


$ 3.4 五 笔 字 型 输入 法 


五 笔 字 型 是 当前 汉字 输入 的 最 优 方案 之 一 , 它 具 有 速度 
快 、 易 学 、. 易 记 等 优点 ,很 多 计算 机 和 打字 机 都 配 有 五 笔 字 型 
的 输入 方法 。 

1. 五 笔 字 型 软件 的 装 人 

由 于 早先 的 中 华 学 习 机 汉字 系统 没有 定义 专门 的 功能 键 
进入 五 笔 字 型 方式 ,所 以 五 笔 字 型 的 系统 软件 必须 经 过 启动 
才能 使 用 .启动 方 法 是 :将 五 笔 字 型 系统 盘 插入 驱动 器 ,开机 
(或 PR##6) 后 可 以 进入 五 笔 字 型 所 需要 的 汉字 系统 。 再 敲 
F4 "或 ” F5 " 键 , 屏 幕 状 态 提 示 行 出 现 “ 五 笔 ? 字 样 , 表 示 当 前 
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处 于 五 笔 字 型 输入 方式 。 

2， 汉字 的 五 种 笔划 

汉字 笔划 的 形态 变化 多 端 , 若 按 其 长 短 曲直 和 笔 势 走向 
来 分 ,可 有 几 十 种 之 多 ,但 若 只 考虑 运 笔 的 方向 ,不 计 其 轻重 
长 短 , 则 汉字 的 笔划 只 有 横 . 坚 、 撤 . 撩 , 折 五 种 .为 便于 记忆 和 
应 用 ,依照 其 使 用 频 度 ,分 别 编 以 1.2.3.4,.5 的 代号 ,如 表 3. 1 
所 示 。 

” 按 此 五 种 笔划 ,可 以 把 任何 汉字 分 解 为 单 笔 划 序 列 并 转 

换 成 代码 。 

例如 ,大 ? 字 分 解 成 “一 /7、 ”代码 为 134。 丙 ”分解 为 
“一 上 | 7 ”代码 为 12534。 

表 3.1 汉字 的 五 种 笔划 


代号 | 笔划 名 称 | 笔划 走向 | 。 笔 


笔 形 


五 笔 字 型 汉字 编码 方案 采用 字 根 拼 形 输入 方式 ,将 字 根 
像 搭 积木 一 样 ,拼合 成 汉字 。 例 如 ， 木 木 ? 拼 合成 “林木 子 ” 
拼合 成 “ 李 ”,“ 日 月 ?拼合 成 “ 明 ” 等 ,把 字 根 科学 地 安排 在 计算 
机 键盘 上 ,就 形成 了 字 根 键盘 ,如 图 3. 1 所 示 。 


YY 八 
:3 各个 攻 和 香 5 5 
二 
的 TYCC 和 和 5 
“二 辣 出生 了 和 上 2.5 
"人 1 帮 肌 邓 

“ 它 卯 炒 贡 昌林 避 1 5 


图 师 谨 去 想必 栈 去 千 正 【8 国 


”( 导 ) 才 〈 当 ) 二 名 


“要 生子 
“ 尝 丛 国 “ 泊 看 阅 
“天 败 (如 环 
UNY 凤 志和 远 
学 Y 束 误 二 碧 加 
“一 刁 了 -人 其 用 


”( 邓 ) ?3 了 一 1fX 太 化 阅 


本 各 
人 和 “1 了“ 计 
和 人 


Fe 


| 日 


和 


从 图 3. 1 中 可 以 看 到 ,五 笔 字 型 方案 中 130 种 基本 字 根 
分 别 排列 在 25 个 英文 字母 键 上 ,每 个 键 位 上 安排 了 2 一 6 个 字 
根 , 这 130 种 基本 字 根 ,按照 其 首 笔 笔划 代码 ,兼顾 键 位 设计 的 
二 要 , 共 分 成 5 个 区 ,每 个 区 又 分 成 5 个 位 ,这 样 得 到 11 一 15,21 
”25,31 一 35,41 一 45,51~55 共 25 个 键 位 代码 。 每 个 键 位 左上 
旬 呈 汉字 叫 键 名 , 它 的 特点 是 组 字 频 率 高 ,形体 上 有 一 定 代表 
性 。 

4 输入 方法 

输入 一 个 汉字 时 ,要 先 将 该 字 分 解 成 字 根 ,然后 用 4 个 码 
来 操作 。 具 体操 作 方法 如 下 : 

(1) 键 名 汉字 输入 

键 名 中 大 多 数 本 身 就 是 一 个 汉字 ,输入 键 名 汉字 时 ,只 要 
把 它们 所 在 的 键 连 殴 四 次 就 可 以 了 。 例 如 

王 :， 1l1 1 1 11 (GGGG) 

立 ，42 42 42 42 (UUUU) 

《2) 成 字 字 根 汉 字 输 入 

在 字 根 总 表 中 ,每 个 键 位 除了 键 名 字 根 外 ,还 有 部 分 字 根 
本 身 也 是 汉字 , 称 为 成 字 字 根 。 成 字 字 根 取 码 规定 如 下 : 

键 位 代码 十 首 笔 代码 十 次 笔 代 码 十 末 笔 代码 

即 是 先 台 该 字 根 所 在 的 那个 键 ,再 输入 第 一 、 二 笔划 及 未 
笔划 。 不 足 4 键 的 ,用 空格 键 补 齐 。 例 如 

文 ， 4 41 1 41 (YYGY) 

由 ，25 21 51 11 (MHNG) 

十 ，12 1 21 (CFGH ) 

对 于 五 种 笔划 , 则 作为 成 字 字 根 的 特例 ,其 取 码 规 乱 吨 : 
痪 入 两 个 原 码 之 后 再 输入 两 个 24(L) 具体 如 下 : 

一 ， 1l1 1l1 24 24 (GGLL) 
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| ，21 21 24 ,24 (CHHLL) 
]/: 3 3l1 24 24， (CTTLL) 
\:， 4 41 24 24 (YYLL) 
乙 : 41 41 24 24 (CNNLL) 
(3) 键 外 汉字 输入 
除了 上 面 介 绍 的 键 名 和 成 字 字 根 外 ,在 键盘 上 看 不 到 的 
字 , 称 之 为 键 外 字 。 在 把 键 外 字 拆 成 一 串 基 本 字 根 时 ,要 遵守 
四 条 原则 。 
1) 按 书写 顺序 拆 。 例 如 
新 拆 成 立 木 斤 〈 正 确 ) 
拆 成 立 斤 木 (错误 ) 
部 拆 成 立 口 员 ( 正 确 ) 
拆 成 立 口 (错误 ) 
2) 取 大 优先 。 指 的 是 在 各 种 可 能 的 拆 法 中 ,尽量 按 书 写 顺 
序 每 次 都 拆 出 尽 可 能 大 的 字 根 ,叫做 “能 大 不 小 ”例如 
朱 拆 成 “ 小 《正确 ) 
拆 成 木 〈 错 误 ) 
尺 “ 拆 成 尸 \ “正确 ) 
拆 成 字 人 (错误 ) 


3) 兼 顾 直观 。 例 如 

自 拆 成 / 目 (正确 ) 
拆 成 1 1 三 (错误 ) 

羊 拆 成  ， (正确 ) 
拆 成 Y 三 | (错误 ) 


4) 能 连 不 交 。 指 的 是 能 按 连 的 关系 拆 成 ,就 不 要 按 相 交 的 
关系 拆 分 。 例 如 
天 拆 成 一 大 《两 者 相连 ,正确 ) 


拆 成 二 人 (两 者 相交 ,错误 ) 
于 拆 成 一 十 (两 者 相连 ,正确 ) 


拆 成 二 | (两 者 相交 ,错误 ) 
采用 五 笔 字 型 输入 汉字 时 ,最 多 只 取 四 码 , 其 处 理 如 下 : 
(1) 超 过 四 码 的 汉字 输入 方法 : 散 一 二 .三 \ 示 字 根 所 在 
的 键 。 例 如 


训 : 立 早 女 页 (CUJTM) 
(2) 刚 好 四 码 的 汉字 输入 方法 :依次 将 所 在 的 字 根 键 融 完 
为 止 。 例 如 
照 : 日 娘 口 心 (CTJVKO) 
座 : 广 人 人 土 (YWWF) 
(3) 少 于 四 码 的 汉字 输入 方法 :不 够 四 码 , 将 所 有 的 字 根 
输 完 ,再 按 末 笔 字 型 识别 码 ( 在 未 学 会 末 笔 字 型 “识别 码 ? 之 
前 ,可 用 Z 键 代 替 )。 仍 少 于 四 码 ,再 加 空格 键 。 例 如 
们 : 1 人 门 Z 《空格 键 ) 
地 : 土 也 Z 《空格 键 》 
同 : 门 一 口 Z 
5. Z 键 的 用 处 
Z 键 叫 辅助 学 习 键 , 它 可 以 用 来 代 蔡 “未 笔 字 型 识别 码 ”， 
也 可 以 用 来 代替 一 时 记 不 清 或 分 解 不 准 的 任何 字 根 。 
例如 , 当 要 输入 “ 荣 ? 字 时 ,不 知道 “ 木 2 在 什么 键 上 ,可 打 
成 
4 Z QZ 
此 时 提示 行 显示 
五 笔 :apzz 1 芝 AP 2 劳 APL 3 蒙 APG 4 营 APW 
5 薪 APS 
再 打 入 序号 5“ 沫 ? 字 即 显示 在 光标 位 置 处 。 从 提示 看 到 ， 
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“Z" 代 蔡 的 “ 木 "在 “S" 键 上 。 
6. 词汇 的 编码 输入 
笔划 构成 了 字 根 , 字 根 构成 了 单字 ,以 单字 为 基本 单位 组 

成 成 千 上 万 的 词汇 。 所 有 的 词汇 码 都 是 四 码 ,其 码 型 与 单字 码 

型 完全 一 样 , 词 汇 代码 的 取 码 规则 分 为 以 下 四 种 情况 。 


(1) 双 字 词 
每 字 取 其 全 码 的 前 两 码 。 例 如 
计算 : 言 十 竹 目 (YFTH) 
操作 : 二 口 1 CRKWT) 
(2) 三 字 词 
前 二 字 各 取 一 码 , 最 后 一 字 取 两 码 。 例 如 
计算 机 :， 言 竹 木 几 (CCYTSMD) 
操作 员 ， 寺 1 口 贝 CRWKM) 
(3) 四 字 词 
每 字 各 取 全 码 的 第 一 码 。 例 如 
汉字 编码 ， > 六 和 石 (PXD) 
中 国人 民 ， 只 上 器 人 3 (GKLWN) 
(4) 多 字 词 
取 第 一 .二 .三 及 未 字 的 第 一 码 。 例 如 
中 国共 产 党 : 口 口 十 (KLAI) 


中 华人 民 共 和 国 : 口 1 


人 上 口 (KWWL) 
从 上 面 例子 可 以 看 出 ,词汇 码 与 单字 码 相 比 ,不 用 任何 特 


丈 标记 。 由 于 单字 码 与 词汇 码 有 着 不 相同 的 分 布 规律 ,法 者 混 


合 使 用 不 需要 换 档 。 绝 大 部 分 情况 下 不 会 发 生 冲 突 。 有 了 这 
样 的 词汇 输入 ,操作 起 来 就 方便 多 了 。 


第 四 章 “文字 编辑 软件 CCWORDSTAR 


当今 计算 机 已 成 为 办 公 室 自动 化 的 必 不 可 少 的 工具 之 
一 。 在 办 公 室 中 它 除 了 担负 大 量 的 信息 管理 工作 外 ,最 基本 的 
公文 处 理工 作 , 比 如 文字 编辑 和 排版 打印 等 工作 ,也 都 可 由 电 
脑 来 完成 。 

本 章 将 要 介绍 在 CEC-I 机 上 运行 的 汉字 处 理 软 件 
WORDSTAR (简称 C-WORDSTAR ) ,对 于 在 其 它 机 型 的 运行 
的 WORDSTAR ,使 用 方法 与 此 类 似 。C-WORDSTAR 是 一 种 
全 屏幕 通用 文字 编辑 程序 , 它 使 用 菜单 选择 方式 (关于 菜单 的 
概念 ,请 参见 8$ 8. 3) ,使 用 极为 方便 ,是 当今 最 流行 的 文字 处 
理 软件 之 一 。 


$ 4.1 C-WORDSTAR 的 启动 


要 在 CEC-I 机 上 使 用 C-WORDSTAR ,必须 具备 以 下 两 
个 条 件 : 

(1) 至 少 一 台 软 盘 驱动 器 。 

(2)C-WORDSTAR 系统 盘 。 

如 果 希 望 将 编辑 好 的 文字 或 资料 打印 出 来 ,还 需要 一 台 
能 在 CEC-I 机 上 使 用 的 打印 机 ,并 且 此 台 打 印 机 能 打印 中 
文 。 

启动 C-WORDSTAR 的 方法 如 下 : 

(1) 将 CCWORDSTAR 系统 盘 插 入 驱动 器 ( 若 有 两 台 驱 动 
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器 , 则 插入 第 一 台 驱 动 器 )。 

(2)? 如 果 还 没有 开机 ,那么 只 需 打 开 主 机 电源 , 稍 等 片刻 ， 
屏幕 就 会 出 现 图 4. 1 的 主 菜单 。 

如 果 机 器 的 电源 已 打开 , 则 不 需 关 机 ,只 需 打 入 PR#6， 
则 可 启动 系统 盘 , 它 同样 出 现 图 4. 1 的 主 菜单 。 


图 4.1 功能 主 菜单 
当 屏 幕 出 现 图 4. 1 的 功能 主 菜单 时 ,你 就 成 功 地 进入 了 
C-WORDSTAR 状态 。 主 菜单 提供 了 所 有 可 使 用 的 功能 ,使 用 
时 只 需 键 入 对 应 的 字母 ,如 字母 D 表示 进入 编辑 ,字母 P 表 
示 打 印 文件 等 等 。 


$ 4.2  C-WORDSTAR 的 简单 使 用 


作为 一 个 例子 ,我 们 把 本 章 开 始 部 分 中 的 一 段 话 :“C- 
WORDSTAR 是 一 种 全 幕 通用 文字 编辑 程序 , 它 使 用 菜单 选 
择 方式 ,使 用 极为 方便 ”。 输 入 到 计算 机 中 ,并 对 它 进 行 编辑 、 
编 版 和 打印 输出 。 

在 此 之 前 ,需要 明确 几 个 有 关 概 念 。 

当 上 面 的 一 段 话 被 输入 到 计算 机 后 , 称 它 为 一 个 文件 (或 
文书 ,文稿 )。 每 个 文件 有 一 个 互 不 相同 的 名 字 , 称 为 文件 名 。 
输入 和 修改 某 个 文件 的 内 容 , 称 为 编辑 文件 。 文 件 名 的 更 改 
(改名 ) 称 为 更 换文 件 。 由 计算 机 将 一 个 文件 复制 成 另 一 个 内 
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容 相间 (而 名 字 可 以 不 同 ) 的 文件 的 过 称 为 拷贝 文件 。 
1. 进入 编辑 状态 
在 图 4. 1 主 菜 单 中 选择 功能 D ,屏幕 内 容 即 换 成 图 4. 2。 
使 用 末 靖 令 建 立新 文 节 文件 或 更 
改 现存 文件 。 文 件 名 取 1.4 个 汉字 ,文件 
名 是 ; 
文件 名 
图 4.2 
我 们 假定 文件 名 是 “简介 ”那么 输入 “简介 ”二 字 ,再 输入 
回 车 键 (以 下 用 < 表示 ) 表 示 结 束 。 当 系统 提问 “新 文件 ?”( 询 
问 刚 打 入 的 文件 “简介 "是否 是 新 文件 ) ,回答 是 “Y? 或 直接 按 


下 回 车 键 。 
北 时 ,屏幕 如 图 4. 3。 
文件 名 :， 简介 ， 订 00 列 :00 页 :00 
COMMAND : 


人 | - | 人 全 
| 
| 


图 4.3 

图 4. 3 中 ,第 一 行 是 状态 行 , 其 中 有 当前 编辑 文本 的 文件 
名 和 当前 光标 的 位 置 (页 .行列 号 ), 它 随 光标 的 移动 而 变动 。 
请 按 下 光标 向 右 移 动 键 >> 或 空格 键 观 察 状态 行 的 变化 状况 ， 
再 按 下 光标 向 左 移动 键 妃 恢复 初始 状态 。 

一 行 称 为 命令 行 (COMMAND) ,表明 当前 的 操作 命令 。 

第 三 行 称 为 标尺 行 . 它 表 示 屏 幕 中 显示 字符 的 边界 和 位 
置 。 其 中 : 


4 


L 一 一 左边 界 , 即 输入 和 显示 字符 的 开始 位 置 。 
R 一 一 右边 界 , 即 输入 和 显示 字符 的 右边 界限 。 
以 下 各 行 称 为 编辑 行 ,每 个 编辑 行 的 最 右 一 个 字符 可 能 
是 “一 ?或 十 。 其 中 字符 “一 ?表示 此 行 以 回 车 键 结束 ;字符 
“十 :表示 此 行 不 以 回 车 键 结束 , 此 行 末尾 可 能 有 多 个 空格 符 。 
请 比较 ; 
(1) 直 接 打 入 回 车 键 此 时 状态 行 显示 当前 光标 位 置 是 行 
01, 列 00。 
(2) 再 一 直 按 下 空格 键 . 状 态 行 中 当前 光标 的 列 号 不 断 增 
加 。 持 续 这 种 状态 ,一 直到 编辑 程序 自己 将 光标 移 到 
,下 一 行为 止 。 
此 时 屏幕 内 容 见 图 4. 4。 


文件 名 ， 行 :02 
COMMAND : 
二 |--------- | 


图 4. 4 


2. 输入 
请 按 图 4. 5 输入 。 


文件 名 : ”简介 :03 ， 列 :08 页 :00 
COMMAND: 


C-WORDSTAR 是 种 全 屏 屏幕 通用 
文字 编辑 _ 


图 4.5 


3. 修改 
在 图 4.5 中 ,发 现 有 三 个 错误 ;四 字母 T" 应 是 及" 。@) 
“是 种 ?两 字 之 间 应 插入 “一 ” 字 。 图 “ 屏 ? 字 重复 。 下 面 我 们 将 
对 它们 进行 修改 。 
(1) 将 民 ? 改 成 下 ， 
首先 ,要 将 光标 移 到 字母 江 ' 位置 。 移 动 光 标 可 通过 下 面 
的 操作 : 
”“H 一 一 光标 左 移 一 个 字符 位 置 (功能 与 马 键 相同 )。 其 
中 ”表示 ctrl 键 ,，” H 表示 先 按 下 ctrl 键 但 不 放 
开 此 键 , 接 着 再 按 下 H 键 ,然后 先后 释放 H 键 


和 ctrl 键 。 
”U-- 一 光标 右 移 一 个 字符 位 置 (功能 与 > 键 相同 )。 
”J 一 一 光标 下 移 一 行 。 


“和 一 一 标 上 移 一 行 。 

”M 一 一 光标 移 到 下 一 行 的 开关 (功能 类 似 于 <+! 键 ) 。 
”C 一 一 光标 下 移 7 个 汉字 行 。 

” R 一 一 光标 上 移 7 个 汉字 行 。 

”也 一 一 光标 移 到 文件 的 开头 。 
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X 一 一 光标 移 到 文件 的 末尾 。 

这 样 ,通过 这 些 操作 ,光标 能 到 达 屏幕 编辑 文件 的 任意 位 
置 , 这 就 是 全 屏幕 操作 的 真正 含义 。 

接着 , 当 光 标 在 字母 江 " 位 置 时 , 按 下 字母 及 :可 替换 字 
母 工 ? 。 

(2) 在 “是 种 ”两 字 间 插 入 字 一 。 

将 光标 移 到 字 “ 种 位置 。 按 下 ” 工 命令 (或 键 Tab) ,使 系 
统 处 于 插入 状态 。 此 时 屏幕 见 图 4. 6。 


文件 名 : 简介 行 :02 列 :16 页 :00 
COMMAND :插入 (INSERT ON) 


输入 字 “ 一 ”。 按 ESC 键 退出 输入 状态 。 

(3) 删 去 “ 屏 屏 ”两 字 中 的 一 个 。 

先 将 光标 移 到 字 “ 屏 "位置 。 按 下 ”* D 命令 进入 删除 状态 。 
按 下 键 > 删 除 光标 右边 的 一 个 字符 。 

当 删 去 “ 屏 ” 字 后 , 按 ESC 键 退出 删除 状态 。 

在 ` D 的 删除 状态 下 ,还 有 以 下 几 个 功能 : 

<: -- 一 删除 光标 所 在 行 右 端的 所 有 字符 。 

<-- 一 恢复 被 <! 或 > 删 去 的 字符 。 

修改 后 的 屏幕 见 图 4. 7。 
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文件 名 : 
COMMAND， 


C-WORDSTAR 是 一 种 全 屏幕 通用 
文字 编辑 _ 


图 4.7 
4. 继续 输入 其 余 文 字 
此 时 屏幕 见 图 4. 8。 


文件 名 ， 简介 行 :04 列 :18 


COMMAND : 


c-WORDSTAR 是 一 种 全 屏幕 通用 
| 文字 编辑 程序 , 它 使 用 菜单 选择 方式 ， 
| 和 什 用 极为 方便 。__ 


本 4. 8 


5. 保存 文件 


页 : 


注意 ,我 们 已 在 屏幕 中 输入 这 段 文字 ,但 一 旦 关 掉 主 机 电 
源 , 所 有 内 容 将 随 之 消失 ,因此 ,必须 先 将 这 段 文字 存 入 磁盘 


中 保存 起 来 。 


按 下 “” S 键 进入 存盘 状态 ,再 按 以 下 各 键 执 行 各 自 功能 ， 
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D 一 一 存盘 后 返回 主 菜 单 。 
Q-- 一 不 存盘 直接 返回 主 菜 单 。 
S 一 一 存盘 后 返回 先前 的 操作 状态 。 
X 一 一 存盘 后 退出 文字 处 理 状态 。 
请 选择 D 功能 。 至 此 ,我 们 得 到 一 个 名 为 “简介 ?的 文 
件 。 


$4.3 排版 与 打印 


排版 吕 是 设置 文稿 的 各 种 属性 ,如 字体 、 纸 宽 , 行 距 等 . 打 
印 就 是 将 排版 后 的 结果 从 打印 机 输出 到 打印 纸 上 。 

C-WORDSTAR 提供 两 种 排版 方式 :简单 排版 和 高 级 排 
版 。 

简单 排版 是 在 主 菜 单 中 选择 P 功能 ( 见 图 4. 1) ,系统 询 
问 “ 需 建立 打印 格式 吗 ?”, 回 答 Y, 接 着 按 提示 回答 文稿 的 各 
种 属性 ,然后 系统 对 文稿 统一 排版 ( 即 整 篇 文稿 按 同一 格式 排 
版 ,如 使 用 同一 种 字体 等 ) 并 打印 。 

可 是 ,对 于 要 求 较 高 的 场合 ,同一 篇 文稿 中 的 字体 一 般 都 
不 同 ,行距 也 不 一 定 相等 。 这 样 就 需要 高 级 排版 技术 。 

有 具体 方法 是 进入 接受 排版 的 文稿 的 编辑 状态 ,将 光标 移 
到 要 重新 设置 新 排版 属性 的 段 的 第 一 行 开 始 处 , 按 下 ` P 键 。 
此 时 ,屏幕 提示 : 

COMMAND: “PbP(G: 建 立 Y: 取 消 )? 

其 中 G 是 表示 需要 设 定 排版 格式 。 如 果 选 择 G 功能 , 则 
要 继续 回答 :打印 字体 (A 一 0); 纸 宽 ( 一 行 可 以 打印 多 少 个 字 
符 ); 空 格 ( 每 行 左 端 留 多 少 空格 ;行距 (上 下 行 之 间 的 距离 ); 
列 距离 (每 两 个 字 之 间 的 距离 ) 。 


G-WORDSTAR 提供 的 字体 (A 一 O) 见 图 4. 9。 


人 中 华 学 习 机 

也 。 中 华 学 习 机 

C_ 中华 学 习 机 

D 中华 学 习 机 

匡 ” 中华 学 习 机 

FE 中 华 学 习 机 

G_ 中华 学 习 机 

H 中 华 学 习 机 

1 中 华 学 习 机 

， 中 华 

中 华 

.中华 
{ 蕊 

M 中 华 
4 化 

全 细 和 


,中华 


图 4.9 
一 般 地 ,行距 为 8, 列 距 为 1。 对 于 表格 ,行距 可 以 取 1 一 


天 


5。 
回答 了 所 有 这 些 参 数 后 ,C-WORDSTAR 在 光标 处 插入 
一 串 排版 控制 符 : 
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兰 字 型 工 纸 宽 V 空格 立行 距 X 列 距 沁 
如 字 型 A, 纸 宽 80, 空 格 5, 行 距 8、 列 距 1 表示 成 立 
AT80 V5 Y8 X] 学 。 
另外 YY 表示 取消 光标 所 在 行 的 排版 格式 控制 符 。 


8$ 4.4 C-WORDSTAR 的 高 级 用 法 


1， 删 除 功能 

”2ZC 一 一 清除 文稿 中 的 全 部 字符 。” ZC 表示 先 按 “ Z， 
再 按 C 键 。 

”2ZT 一 一 清除 光标 以 上 的 所 有 字符 ,包括 未 在 屏幕 上 显 
示 的 部 分 。 

”ZB 一 一 清除 光标 以 下 的 所 有 字符 ,包括 未 在 屏幕 上 显 
示 的 部 分 。 

”ZL 一 一 清除 光标 所 在 行 的 全 部 字符 。 

2. 查找 替换 功能 

”GR 一 一 从 文稿 开头 开始 查找 指定 字符 。 

系统 询问 “ 找 ? 一 一 ”要 求 用户 填 入 要 查找 的 字符 ,如 

“今天 ”。 


接 着 ,系统 又 询问 “(1) 连 续 (2) 顺 查 (3) 反 
查 ? 一 一 ”要求 用 户 选 择 哪 一 种 查找 方式 。 
(1) 连 续 方 式 , 指 从 文稿 开始 依次 找 出 所 有 的 “今天 ? 字 
符 。 每 找到 一 个 “今天 ”, 光 标 就 停 在 那里 ,等 待 你 输入 替换 字 
符 , 如 “明天 ”然后 继续 , 直至 全 文 找 完 或 按 下 ESC 键 为 止 。 
继续 查找 按 COMMAND 提示 : 
(SPACE 继续 ! 


键入 空格 键 就 继续 查找 。 


(2) 顺 查 方式 , 指 从 文稿 开头 查找 第 一 个 指定 的 字符 。 

(3) 反 查 方式 , 指 从 文稿 末尾 开始 逆向 开头 查找 。 

”GT 一 从 光标 的 当前 位 置 查找 指定 字符 。 

”GY 一 一 将 查找 到 的 字符 自动 换 成 指定 字符 。 它 与 ” 
GR 的 区 别 是 ,” GY 自动 将 所 大 ,的 字符 换 成 指定 的 字 
符 , 而 ” GR 可 将 找到 的 字符 换 ,X 不 同 的 字符 。 

”“GU 一 一 仅 自 动 替换 光标 处 的 字符 。 

3. 块 操作 

为 什么 需要 块 操作 ? 因为 在 一 篇 文稿 中 有 时 需要 删 去 一 
段 文 字 , 有 时 需要 一 段 文字 搬 到 另 一 个 地 方 。 

什么 是 块 ? 由 块 标 *[ ”和 ”“]? 括 起 来 的 一 段 字符 , 注意 “[” 
和 ”“]? 的 位 置 不 能 颠倒 ,而 “[” 和 ”“]? 之 间 的 字符 个 数 不 限 。 

怎样 设置 块 标 ? 通过 ”` BB 设置 字 标 首 标 “[”，”BK 设置 
字 块 尾 标 *]”。 每 一 个 文稿 中 至 多 有 一 个 块 。 

(1) 字 块 的 搬 动 

”BYV 一 一 将 字 块 搬 到 当前 光标 的 位 置 。 

〈2) 字 块 的 复制 

”BO 一 一 将 字 块 复制 到 当前 的 光标 位 置 。 

(3) 字 块 的 删除 

”BD 一 一 将 字 块 中 的 字符 以 及 块 标 一 起 删 去 。 

(4) 删 除 块 标 

”BH 一 一 删 去 块 标 。 但 块 标 之 间 的 字符 没 被 删 去 。 


$ 4.5  C-WORDSTAR 的 其 它 功能 


我 们 继续 介绍 主 菜 单 ( 图 4. 1) 中 其 它 蕊 能 ， 
(1)C 功能 
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列 出 磁盘 上 的 文件 目录 。 

(2)E 功能 

对 文件 名 改名 。 在 主 菜单 下 当选 择 E 时 ,屏幕 显示 ， 
文件 名 字 ? 简介 -+ 
名 字 换 成 ?介绍 < 

(3)0 功能 

拷贝 文件 。 在 主 菜 单 下 ,键入 O ,屏幕 即 显 示 : 
文件 名 字 ? 简介 
文件 拷贝 到 ? 介绍 < 

(4)Y 功能 

删除 文件 。 在 主 菜 单 下 ,键入 Y ,屏幕 即 显 示 : 
文件 名 字 ? 简介 -< 

(5)X 命令 

退出 C-WORDSTAR 系统 , 回 到 BASIC 状态 。 


8$ 4.6 ”一 个 例子 


通过 上 面 几 节 的 学 习 , 我 们 已 经 掌握 了 操作 C-WORD- 
STAR 的 基本 技能 。 在 这 一 节 中 ,我 们 通过 一 个 完整 的 例子 ， 
学 习 怎 样 让 计算 机 打印 一 张 通知 书 。 

某 中 学 将 召开 一 次 家 长 会 ,需要 向 各 位 学 生 的 家 长 发 送 
通知 书 。 通 知 书 内 容 如 下 : 


通知 书 


XXX 学生 的 家 长 : 

我 校 定 于 下 星期 六 (18 日 ) 下 午 2:45 在 本 校 会 议 室 
召开 一 次 期 中 考试 总 结 讨论 会 ,内 容重 要 。 为 了 关心 您 的 
子女 的 学 习 情 况 , 奶 望 出 席 参 加 。 

此 致 
敬礼 
广州 市 X 义 中 学 
1992. 4. 10 


为 了 打印 这 张 通知 书 ,我 们 先 要 进入 C-WORDSTAR ,并 
在 主 菜单 ( 见 图 9. 1) 选 择 功能 D 进入 编辑 。 当 屏幕 提示 输入 
文件 名 时 ,键入 “家 长 通知 ”四 个 字 。 

当 你 进入 编辑 状态 时 ,请 按 上 面 通知 书 的 格式 输入 到 计 
算 机 。 

在 进入 打印 功能 之 前 , 先 对 屏幕 中 的 内 容 检查 一 遍 ,对 于 
输 错 或 输 漏 的 文字 , 按 前 面 几 节 介绍 的 编辑 键 ( 修 改 . 插 入 、 删 
除 功能 ) 进 行 更 改 。 当 你 确认 屏幕 上 的 通知 书 输入 无 错时 ,请 
按 ` S 键 ,再 按 D 键 将 “家 长 通知 ”这 个 文件 存盘 并 回 到 主 菜 
单 。 

在 主 菜单 选择 功能 P 进入 打印 状态 。 接 着 计算 机 要 求 你 
输入 文稿 的 打印 格式 ,一 般 选 择 字 型 C, 纸 宽 80, 空 移 为 5, 行 
距 为 8, 列 距 为 1。 当 你 回答 完 这 些 属 性 之 后 ,计算 机 就 会 ) 
通知 书 打印 出 来 。 如 果 你 对 字 型 或 上 面 各 种 控制 打印 格式 的 
参数 不 满意 ,你 可 以 再 次 进入 功能 了 选择 参数 ,打印 另 一 张 
通知 书 ,直到 满意 为 止 。 
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第 五 章 “” 汉 字数 据 库 cdBASE 技术 


数据 库 是 信息 资源 管理 的 先进 工具 , 它 已 广 证 地 应 用 到 
我 们 生活 中 各 个 领域 ,如 图 书 管理 .企业 管理 ` 医 院 管理 交通 
管理 等 .近年 来 ,数据 库 正 渗透 到 计算 机 其 它 分 支 ,特别 在 知 
识 工程 .专家 系统 等 方面 起 了 重要 的 作用 。 可 见 , 数 据 库 已 成 
为 计算 机 科学 的 一 个 重要 分 支 。 

关系 数据 库 技术 是 当前 数据 库 发 展 的 主流 。 本 章 将 从 通 
俗 的 角度 ,使 读者 明白 数据 库 是 什么 .我 们 以 在 中 华 学 习 机 上 
运行 的 cdBASE II 为 例 ,使 读者 对 数据 库 ( 关 系数 据 库 ? 有 一 
个 感性 认识 。 然 而 ,这 里 所 介绍 的 概念 和 对 数据 库 的 操作 都 是 
其 它 关 系数 据 库 的 基础 。 


8$ 5.1 ， 什么 是 数据 库 


1. 什么 是 数据 库 

从 字面 上 理解 ,数据库 是 数据 的 集合 , 它 还 意味 着 对 数据 
的 管理 。 

例如 ,在 拥有 上 百 万 册 书 籍 的 图 书馆 里 ,使 用 数据 库 技 术 
管理 是 相当 重要 的 .这 上 百 万 册 书 籍 经 过 分 类 ,编排 ,最 后 制 
成 各 种 卡片 。 通 过 这 些 卡 片 ,读者 借 书 时 能 快速 找到 想 借 的 
书 , 而 图 书馆 管理 人 员 也 能 掌握 各 类 书籍 的 借 出 情况 。 

这 里 ,图 书 根据 需要 被 提出 (抽象 出 ) 各 种 属性 ,如 书号 、 
作者 、 出 版 社 . 出 版 日 期 尺寸 .价格 等 。 每 一 册 图 书 都 拥有 一 
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项 表明 这 些 属性 的 情况 的 记录 .而 图 书馆 中 所 有 书籍 的 记录 
就 组 成 一 个 关系 。 为 了 掌握 图 书 借 出 情况 ,还 需要 一 个 借 出 关 
系 。 在 这 个 关系 中 ,要 表明 借 书 人 日 期 、 借 书 书号 ,是否 已 还 
书 等 。 根 据 需 要 ,还 可 能 有 其 它 的 关系 ,所 有 这 些 关 系 组 成 了 
图 书馆 的 图 书 数据 库 。 

如 果 你 对 上 述 名 词 ( 关 系 . 属 性 记录) 还 感到 莫名 其 妙 ， 
那么 不 要 紧 , 我 们 从 另 一 角度 来 说 明 。 

请 想像 你 正 需要 一 本 书 , 或 者 叫 (太空 探险 记 》 吧 .为 了 借 
阅 此 书 , 你 走 进 一 座 有 上 百 万 册 的 , 占 地 五 层 楼 的 图 书馆 。 假 
设 这 座 图 书馆 的 图 书 随便 堆放 在 书架 上 .幸好 ,你 拥有 一 张 超 
级 通行 证 ,可 随意 到 书架 上 找 书 。 为 了 找到 这 本 书 , 你 不 得 不 
从 第 一 层 的 第 一 个 书架 开始 寻找 ,如 果 幸 运 , 你 在 第 一 个 书架 
中 找到 这 本 书 。 然 而 ,从 机 遇 和 角度, 这 本 书 可 能 出 现在 第 三 层 
中 ,也 即 你 要 在 寻找 了 至 少 50 万 册 书 之 后 ,才能 找到 它 。 假 
设 你 以 每 秒 10 本 书 的 速度 迅速 查找 ,也 要 花 50,000 秒 , 即 约 
14 小 时 才能 找到 它 ,也 即 你 必须 精神 高 度 集中 地 坚持 以 这 种 
速度 查找 , 约 14 个 小 时 后 才能 找到 这 本 书 。 这 时 ,你 屁 己 
精 疲 力 尽 ,也 许 对 这 本 书 已 毫 无 兴趣 了 。 一 种 最 坏 的 情况 是 ， 
如 果 你 找 完 所 有 的 书 ， 还 找 不 到 你 要 借 的 书 , 那 么 这 本 书 可 
能 根本 不 在 这 图 书馆 中 ,或 刚好 掉 在 某 个 书架 下 面 ! 如 果 是 后 
者 ,你 还 有 信心 再 找 吗 ? 

在 遭遇 这 些 波 折 后 ,你 可 能 会 希望 将 所 有 这 些 图 书 制 成 
卡片 ,并 按 书 名 的 拼音 顺序 排序 (当然 还 有 其 它 方式 排序 ) .这 
样 , 你 先 找 以 t+ ( 字 “ 太 ?的 第 一 个 拼音 字母 ) 开 头 的 书 在 哪 ,再 
接 现 往 下 找 , 一 般 几 分 钟 内 可 找到 这 本 书 的 卡片 (如 果 有 的 
话 )。 管 理 员 则 根据 你 提供 的 号 码 很 快 就 会 找到 这 本 书 。 

这 样 ,每 张 卡片 (代表 一 本 书 , 也 即 是 一 个 记录 ) 至 少 有 书 
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名 这 个 属性 。 另 外 ,如 果 你 仅 知道 你 借 的 书 的 作者 和 出 版 日 
期 ,而 不 知 书 名 ,为 了 避免 翻阅 所 有 卡片 ,还 要 另 制 卡片 使 它 
按 作者 .日 期 有 规律 地 存放 。 为 了 叙述 方便 ,这 个 书 卡 架 中 所 
有 卡片 称 为 一 个 关系 。 当 然 ,为 了 方便 管理 员 , 他 们 也 应 有 书 
籍 存放 地 点 的 表 , 以 便 能 根据 卡片 号 码 找 出 该 书 所 在 的 位 置 ， 
这 又 是 一 个 关系 。 另 外 ,为 了 采购 方便 ,还 应 有 购书 关系 。 所 
有 这 些 关 系 组 成 了 图 书 数据 库 。 

通过 这 个 例子 ,我 们 初步 了 解 什么 是 数据 库 ,也 明白 了 它 
的 重要 性 。 数 据 库 的 一 种 普遍 的 定义 (C.J. Date ) 是 :所 谓 数 
据 库 是 被 存 贮 起 来 的 运用 数据 的 汇集 ,其 数据 被 特定 的 组 织 
(如 上 述 的 图 书馆 ?的 应 用 系统 所 利用 。 

2. 一 个 数据 库 例子 

为 了 以 后 叙述 方便 ,我 们 举 一 个 管理 学 校 某 个 年 级 各 班 
的 成 绩 数据 库 。 它 有 以 下 几 个 数据 项 : 班 别 . 学 号 、 姓 名、 语文 、 
数学 。 这 些 数据 项 也 叫 字段 。 每 个 字段 都 有 各 自 的 类 型 (类 型 
是 为 方便 人 们 理解 和 计算 机 管理 而 设置 )。 班 别 的 类 型 是 1 
位 整数 ,学 号 是 2 位 整数 ,姓名 是 长 度 为 8 的 字符 串 , 语 文 是 
3 位 整数 ,数学 是 3 位 整数 。 为 节省 篇 幅 ,假定 该 年 级 有 两 个 
班 , 分 别 有 6 人 和 4 人 。 见 下 图 5.1) 


班 别 ”学 号 姓名 ”语文 数学 
1 1 张 志 远 94 90 
1 2 马 晓 丽 95 87 
1 3 许 昆 85 51 
1 6 李 灿 67 80 


1 7 赵 天 山 50 43 
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1 12 李 奉 90 83 
周明 88 85 


1 

2 3 刘 怡 文 82 87 

2 5 张 威 90 93 

2 6 徐 庚 福 65 96 
图 5.1 


为 了 将 这 些 记录 ( 共 10 个 ) 存 到 计算 机 , 先 要 建立 一 个 名 
为 “成 绩 ? 的 数据 库 文 件 , 再 将 这 批 记录 输入 到 这 个 数据 库 文 
件 。 为 了 维护 这 个 数据 库 文件 ,我 们 要 修改 (更 新 ) 记 录 , 插 入 
记录 (如 新 调 入 一 名 学 生 ) ,删除 记录 (如 某 名 学 生 离 校 ) 等 。 我 
们 的 目的 是 能 管理 该 年 级 学 生 的 成 绩 , 即 需要 查询 哪些 学 生 
哪些 科目 不 及 格 ,统计 优秀 学 生 人 数 , 计 算 各 班 平均 分 等 。 所 
有 这 些 , 我 们 将 在 本 章 第 二 节 介 绍 。 

3. 如 何 进入 cdBASE 工 系统 

(1) 在 中 华 学 习 机 上 运行 cdBASE 工 系统 ,必须 具备 : 

1) 至 少 一 台 磁 盘 驱 动 器 。 

2)Z-80 卡 ( 将 有 集成 块 一 面 朝 键 盘 上 有 键 的 方向 插 在 接 
口 槽 中 ) 。 | 

3) 至 少 64K 内 存 。 对 于 西 文 dBASE 工 ,至 少 需 要 48K 内 
存 。 

4) 一 张 带 有 CP/M 操作 系统 的 cdBASE I 系统 盘 。 

(2) 启 动 方法 : 

1) 按 要 求 接 好 Z-80 卡 。 

2) 将 带 CP/M 操作 系统 的 cdBASE 工 插入 驱动 器 A 中 ， 
打开 主机 电源 ,等 待 片刻 。 

3) 当 进入 CP/M 系统 , 即 出 现 提示 符 (A>) 时 ,键入 
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ADBA<+l 
等 待 片刻 。 
4) 屏 幕 显示 : 
请 输入 日 期 (MM/VDD/ZYY) 或 回 车 : 
例如 可 键入 02/01/92( 表 示 1992 年 2 月 1 日 ) 
或 只 打 入 回 车 。 
5) 屏 幕 出 现 : 
汉字 dBASEI _ V1.0 


并 出 现 一 个 小 圆 点 ,表示 计算 机 已 进入 到 cdBASE 工 系 


(3) 退 出 cdBASE 工 的 方法 ; 
键入 命令 QUIT 

.QUIT< 

类 大火 ENDRUN CDBASE II 类 火 火 


(4) 如 果 你 接 有 两 台 驱 动 器 ,为 了 拥有 更 大 的 磁盘 空间 ， 


可 将 工作 盘 键入 驱动 器 B, 并 键入 : 


.SET DEFULT TO B:<- 


以 后 ,数据 库 数 据 的 输入 和 输出 将 在 驱动 器 B 进行 。 
y 5.2 数据 库 基 本 操作 


1. 建立 数据 库 
建立 一 个 名 为 “成 绩 ? 的 数据 库 文件 (严格 讲 , 应 称 为 关 


系 ) ,该 数据 库 文件 的 记录 见 图 5. 1。 


命令 格式 :CREAT 〈 数 据 库 名 》 
过 程 见 下 : 
.CREAT 成 绩 <! 
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字段 ”名字 ， 类 型 ， 宽 度 ， ”小 数位 数 


001 “ 班 别 ， N，1， 0 
002 ”学 号 ， N，2， 0< 
003 ”姓名 ， C，8< 

004 “数学 ， N，3， 0<-1 
005 “数学 ， N，3， 0 


006 < 


现在 就 输入 数据 吗 ? YN 
(键入 N ,等 待 以 后 输入 数据 ) 
现在 ,系统 已 生成 一 个 成 绩 . DBF 文件 。 由 cdBASE II 加 上 
扩展 名 DBF ,因此 磁盘 上 该 数据 库 名 为 “成 绩 . DBF”, 如 要 对 
该 磁盘 文件 直接 操作 ,如 改名 .删除 等 ,需要 写 全 名 “成 绩 . 
DBF”, 否 则 可 省 略 扩展 名 DBF 。 
在 上 述 定义 字段 时 ,可 使 用 包 和 [> 键 左右 移动 光标 ,还 可 
使 用 以 下 功能 键 : 
“T-- 一 删 去 光标 所 在 整个 字段 内 容 。 
“Y- 一 -将 光标 所 在 项 置 空 。 
“N 一 一 在 光标 处 插入 一 空 字段 ,其它 字段 下 移 一 项 。 


” W 一 一 存盘 后 退出 。 
”“Q 一 一 不 存盘 退出 。 
“YV 一 一 允许 在 光标 处 插入 字符 。 
”E 一 一 光标 向 上 移 。 
”“ X 一 一 光标 向 下 移 。 


接着 ,我 们 可 向 数据 库 文件 输入 数据 。 
在 输入 之 前 ,要 告诉 系统 是 向 哪 一 个 数据 库 文件 输入 才 
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据 , 这 就 意味 着 要 打开 数据 库 文件 ,该 命令 是 USE。 
命令 格式 : USE (数据库 名 》) 
用 “( 7 和 “} 括 起 来 表示 里 面 钓 内 容 可 要 可 不 要 ,因此 
USE 有 两 种 格式 : 
(1) USE 
(2) USE (数据 库 名 》 
格式 (2) 将 打开 新 数据 库 文 件 , 并 同时 关闭 以 前 打开 的 数 
据 库 文件 。 格 式 (1) 关 闭 当前 已 打开 的 数据 库 文 件 , 因 为 该 数 
据 库 文件 有 些 记 录 还 在 内 存 , 未 写 入 磁盘 ,为 防止 断 电 而 丢失 
数据 ,必须 养 成 用 完 后 关闭 数据 库 文件 的 习惯 。 
向 数据 库 文件 添加 记录 的 命令 是 APPEND ,过 程 如 下 : 
.USE 成绩 < 
.APPEND<+l 
接着 ,我 们 将 图 5. 1 中 的 数据 记录 输入 。 
同样 ,在 APPEND 下 可 使 用 以 下 功能 键 : 
”S 一 一 光标 左 移 一 个 字符 位 置 ,与 急 功 能 同 。 
”D 一 一 光标 右 移 一 个 字符 位 置 ,与 放 功 能 同 。 
“E、“X、V、Ww 和 ”`Q 功 能 司 前 。 
通过 这 些 功 能 键 ,我 们 能 在 存盘 前 修改 已 发 现 到 的 错误 。 
在 结束 本 小 节 之 前 ,请 关闭 数据 库 : , 
.USE<l 
2. 简单 查询 数据 库 
如 果 想 看 看 某 数据 库 文 件 中 的 记录 ,可 通过 命令 LIST。 
命令 格式 :LIST (OFF)} 
例子 :显示 成 绩 中 所 有 记录 。 
.USE 成 绩 刀 
.LIST<1 
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00001 11 张 志 远 94 90 
00002 12 马 晓 丽 95 87 
00003 13 基 昆 85 51 
00004 16 李 灿 67 80 
00005 17 赵 天 山 50 43 
00006 112 李 春 90 83 
00007 21 周 明 88 85 
00008 23 刘 怡 文 82 87 
00009 25 张 威 90 93 
00010 26 徐 庚 福 65 96 

注意 到 最 左 有 一 列 数字 ,其 值 从 00001 至 00010, 分 别 表 
示 记 录 1 至 记录 10, 这 些 值 由 系统 分 配 ,使 用 者 不 能 更 改 。 而 
命令 LIST DFF 则 不 显示 这 些 值 ,请 试 试 。 

系统 中 有 一 标志 ( 称 为 指针 ) 表 示 当 前 或 将 要 处 理 的 记录 
号 ,对 这 个 指针 的 处 理 命 令 有 GOTO SKIP、RECNO() 。 而 显示 
当前 指针 指示 的 记录 内 容 的 命令 是 DISPLAY 。 命 令 ?相当 
于 计算 器 的 作用 。 下 面 逐 个 介绍 这 些 命令 。 

命令 格式 

(1)GOTO [( 数 字 》 | TOP | BOTTOMI] 

方 括号 和 符号 “| 表示 从 上 述 三 项 中 选 一 项 作为 GOTO 
参数 。 此 命令 使 指示 记录 的 指针 指向 某 个 记录 号 或 第 一 个 记 
录 (TOP) 或 最 末 一 个 记录 (BOTTOM ) 。 

(2)SKIP 士 〈 数 字 》 

相对 位 移 命 令 。 取 正 值 作 参 数 时 ,指针 向 下 移动 由 ( 数 
字 ) 指 定 的 项 ; 取 负 值 时 ,指针 向 上 移动 。 

(3) DISPLAY (ALL) 

没有 参数 ALL 时 , 仅 显 示 当 前 记录 ; 带 ALL 参数 时 , 显 
示 所 有 记录 。 
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(4)LIST NEXT (数字 ) 

显示 从 当前 记录 开始 (数字 ?个 记录 。 显 然 LIST NEXT 
1 与 DISPLAY 一 样 。 

(5)? “《〈 表 达 式 》 

求 表达 式 的 值 并 显示 。 这 里 表达 式 可 以 是 运算 式 , 也 可 


以 是 字段 变量 ( 见 下 例 ) 。 
(6)RECNO () 是 一 函数 ,返回 当前 指针 的 值 , 可 以 通过 命 
令 ? 显示 。 
例子 : 
. USE< 
.USE 成 绩 <! 
.GOTO ”TOP<-+! 
.? RECNO ( )< 
1 
.GOTO BOTTOM-<+: 
.? RECNO ( )< 
10 
.GOTO 2<1! 
.DISPLAY<:! 
00002 12 马 晓 丽 95 87 
.LIST NEXT 2< 
00002 12 马 晓 丽 95 87 
00003 13 许 昆 85 5 
.SKIP 1 
.DISPLAY-<! 
00003 13 许 昆 85 5 
.? 姓名 ,语文 ,数学 < 
许 昆 85 51 


.? 3 十 8x 2/4 类 < 
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7 
另外 ,通过 以 下 两 条 命令 可 看 到 数据 库 文件 的 结构 : 
CD)LIST STRUCTURE 
(2)DISPLAY SRUCTURE 
例 : 


.USE 成 绩 < 
.LIST STRUCTURE--1 


文件 的 结构 :成 绩 . DBF 
记录 个 数 :00010 

最 后 更 改 的 日 期 :02/01/92 

主 区 使 用 的 数据 库 

字段 名 字 类 型 宽度 小 数位 
001 班 别 N 001 0 
002 学 号 N 002 0 
003 姓名 C 008 

004 语文 N 003 0 
005 数学 N 003 0 


火 火 合计 炎炎 00018 

注意 到 合计 的 值 是 各 个 字段 的 宽度 之 和 再 加 1, 它 留 给 
系统 作为 删除 标志 。 

请 你 熟练 掌握 命令 USE、LIST DISPLAY .GOTO 和 ?。 

3. 数据 库 记 录 修 改 

(一 ?增加 记录 

有 两 条 命令 可 用 于 增加 记录 。 

(1) APPEND 在 上 小 节 中 已 介绍 过 。 它 的 功能 是 在 数据 
库 未 尾 增添 若干 条 记录 ,直至 用 户 按 下 ” w 或 “Q 结束 。 
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(2) INSERT 在 当前 记录 之 后 插入 一 条 记录 。 
例 :假设 有 一 学 生 钟 益 ,语文 88 分 ,数学 93 分 ,安排 到 1 
班 ,学 号 为 8。 
分 析 : 该 学 生 的 记录 插入 到 第 5 条 记录 (学 号 为 7) 之 后 。 
过 程 如 下 
.USE 成 绩 <! 
.GOTO ” 5- 
.INSERT<: 
输入 数据 方法 同 APPEND ,最 后 用 <+! 键 或 ”WwW 存盘 。 
(二 ) 修 改 记 录 
用 于 修改 记录 的 命令 有 EDIT、.BROWSE、CHANGE 、RE- 
PLACE。 本 节 只 介绍 前 两 条 ,后 两 条 放 在 第 3 节 介 绍 。 
(1) EDIT 《记录 号 )〉 修改 这 条 记录 。 
(2)BROWSE 修改 所 有 记录 。 
注意 ,经 过 修改 后 的 数据 库 文 件 总 记录 数 不 变 , 而 经 增添 
记录 后 的 数据 库 文 件 总 记录 数 增 大 。 
例 : 将 学 生 李 灿 的 语文 成 绩 改 为 87。 
.USE 成绩 
.EDIT 4 < 
RECORD ”00004 
班 别 :1: 
学 号 :6 : 
姓名 : 李 灿 
语文 :67  : 
数学 :80 : 
此 时 光标 在 班 别 字段 的 第 一 个 字符 处 。 通 过 <-+ 键 将 光标 
移 至 “语文 ?字段 , 改 为 87。 再 键入 ” W 存盘 。 
例 : 浏 览 所 有 记录 并 修改 。 
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.USE 成 绩 <4 (注意 ,这 里 的 成 绩 数据 库 文 件 经 增添 与 修 
改 后 ,与 图 5. 1 不 同 ) 

. BROWSE<1 

RECORD  : 00001 (当前 记录 号 ) 
班 别 学 号 姓 名 语文 数学 
00001 11 张 志 远 94 30 
00002 12 马 晓 丽 95 37 
00003 13 许 昆 85 5 
00004 16 李 : 灿 67 80 
00005 17 赵 天 山 50 43 
00006 112 李 : 春 9%0 83 
00007 21 周明 88 85 
00008 23 刘 怡 文 82 87 
00009 25 张 威 9 93 
00010 26 徐 庚 福 65 ，96 


当 光 标 位 于 某 一 个 字段 时 ,就 可 修改 该 字段 .通过 以 下 切 


能 键 ,可 移动 光标 ; 
”BE 一 一 光标 左 移 一 个 字段 , 若 已 到 最 左 端 则 移 到 上 一 
个 记录 。 
<-! 一 -光标 右 移 一 个 字段, 若 已 到 最 后 字段 则 移 到 下 - 
个 记录 的 开头 。 


“ R - 一 光标 跳 到 上 一 个 记录 。 
”c- 一 光标 跳 到 下 -- 个 记录 。 
“ W 和 “ Q 同 前 。 

(三 ?删除 记录 
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删 记 录 的 命令 有 DELETE 。 实 际 上 , 它 只 将 满足 条 件 的 
记录 打 革 删除 记录 标记 “类 ”( 可 通过 LIST 或 DISPLAY 看 
到 )。 然 后 使 用 PACK 命令 作 真 正 删除 , 即 从 数据 库 文 件 中 取 
消 , 用 LIST 或 DISPLAY 也 看 不 到 。 若 记录 打上 记号 “* ”后 ， 
可 通过 命令 RECALL 恢复 。 

(1) DELETE ALL FOR (表达 式 ) 删除 满足 《表达 
式 ) 条 件 的 所 有 记录 ,( 表 达 式 允许 含 = 、 所 .全 等 算 符 。 如 学 
号 二 2, 语文 <<60 等 。 

(2) PACK 将 带 删除 标记 “xx ”的 记录 从 数据 库 文件 中 
取 走 ?也 即 不 再 留 在 磁盘 中 。 

(3) RECALL ALL 恢复 有 标记 “x* ?的 记录 ,也 即使 它 
不 再 带 有 标志 “类 ” 

例 ; 删 除 第 _ 班 的 所 有 学 生 。 

.USE 成绩 <4 

.DELELTE ALL FOR 班 别 王 1<4 
.LIST< 

00001 11 张 志 远 9490 
00002 x12 马 晓 丽 95 87 
00003 xx13 许 屁 855l 
00004 xx16 李 灿 6780 
00005 闪 17 赵 天 山 5043 
00006 xl17 钟 益 8893 
00007 xl1!2 李 春 9083 
00008 21 周 明 8885 
00009 23 刘 怡 文 8287 
00010 25 张 威 9093 
00011 26 ， 徐 庚 福 6596 
。 PACK-<+! 
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。LIST<1 

0000l 21 周 明 8885 
00002 23 刘 怡 文 82 87 
00003 25 张 威 9093 
00004 26 人 徐 庚 福 65 96 

4. 查询 与 统计 

在 成 绩 数据 库 文件 中 ,如 果 我 们 想 知道 语文 不 及 格 有 哪 
些 学 生 ? 学 号 为 3 的 学 生 是 谁 ?1 班 和 2 班 的 语文 和 数学 平均 
分 分 别 是 多 少 ? 有 多 少 个 学 生 数学 成 绩 在 90 分 以 上 ? 等 等 这 
些 都 是 查询 与 统计 问题 。 它 通过 带 条 件 人 参数 的 LIST、LO- 
CATE . CONTINUE COUNT SUM 等 命令 去 完成 。 

在 开始 以 下 的 学 习 之 前 ,请 将 你 的 成 绩 数据 库 文件 通过 
上 面 介 绍 的 增删 、 修 改 等 方法 ,使 它 恢 复原 来 的 内 容 , 即 与 图 
5. 1 相同 。 

(1) LIST ALL FOR (表达 式 》 

列 出 所 有 满足 条 件 的 记录 。 

(2) LOCATE ALL FOR (表达 式 》 

将 指针 指 到 第 一 个 满足 (表达 式 的 记录 。 此 时 ,可 通过 
DISPLAY 显示 该 记录 。 若 想 寻 找 下 一 个 满足 条 件 的 记录 , 则 
键入 命令 CONTINUE 。 当 没有 记录 满足 时 ,系统 显示 “超出 范 
围 ? 或 “没有 找到 ”。 

(3) COUNT{ ALL FOR 《表达 式 ){TO (变量 〉 }} 

COUNT 有 三 种 形式 : 

a) COUNT 统计 整个 数据 库 的 记录 数 。 

b) COUNT ALL FOR 〈 表 达 式 ) 统计 满足 (表达 式 )》 
的 记录 数 。 与 (1) 不 同 , 这 里 并 不 显示 这 些 记 录 。 

c) COUNT ALL FOR 〈 表 达 式 ) TO 《变量 
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(4) SUM ALL (字段 }) TO 变量) 
统计 字段 所 有 值 之 和 ,将 值 送 给 该 变量 。 
例 : 
.USE 成 绩 <1 
.LIST- ALL FOR 数学 <<60<! 
00003 1 3 许 昆 85 51 
00005 1 7 赵 天 山 50 43 
.LIST ALL FOR 学 号 王 6<1 
00004 1 6 李 灿 67 80 
00010 2 6 徐 康 福 65 96 
.LOCATR ALL FOR 数学 >90<4 
.DISPLAY-< 
00009 2 5 张 威 90 93 
.CONTINUE+ 
.DISPLAY-< 
00010 2 6 徐 庚 福 65 96 
.COUNT ALL FOR 语文 89 TO Cl 
.? Cl 
4 
.COUNT ALL FOR 班 别 =1 TO C2< 
.?  C2< 
6 
.SUM ALL 语文 TO C3+ 
.?  C3 /10<! 
80.6 
.SUM ALL 数学 TO C4<l 
.?  C4/10<l 
79.5 
5. 总 结 


本 节 中 已 分 析 了 cdBASE IE 中 最 基本 的 命令 ,有 几 点 值得 
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汉 醒 大 家 : 
GD) 使 用 数据 库 时 要 先 打开 数据 库 文件 ,使 用 完 之 后 要 关 


闭 。 请 试 试 在 未 打开 数据 库 之 前 运行 LIST 命令 ,系统 有 什么 
王 响 , 即 : 

.USE<: (关闭 数据 库 ) 

.LIST<1! 


2) 打开 的 数据 库 文 件 有 一 指针 , 它 指向 当前 的 记录 。 对 
沁 指 针 可 通过 GOTO .SKIP 等 命令 进行 操作 。 

《3) 建 立 一 个 数据 库 文件 .要 先生 成 它 的 结构 ,再 输入 数 
据 。 

《4) 驶 活 使 用 条 件 查询 命令 LIST。 除 LIST COUNT 外 , 许 
多 命令 呆 加 上 “FOR (表达 式 )” 对 记录 的 处 理 范围 进行 控制 。 
复合 禾 件 式 可 通过 “. AND.”“. OR.” 和 “. NOT. ”与 括号 连 
接 。 所 有 这些 ,由 于 篇 幅 关 系 , 请 该 者 上 机 细心 体会 。 建 议 读 
冶 目 已 建立 一 个 至 少 有 20 条 记录 的 数据 库 文件 ,结合 这 些 命 
令 于 相当 习 , 你 将 体会 到 许多 乐趣 。 


5.3 ”数据库 的 蚀 级 操作 


.两 条 修改 数据 库 的 命令 (CHANGE .REPLACE) 。 
*。 数据 库 结 构 的 修改 和 复制 。 

“。 数据 库 广 件 的 操作 。 

.数据 沁 录 的 排序 。 

。 例子 与 技巧 。 

1. 两 条 修改 数据 库 的 命令 

(1) CHANGE FIELDS (字段 和 名》 FOR 《条 件 》 
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功能 : 对 满足 条 件 的 所 有 记录 的 指定 字段 进行 修改 。 
比较 :EDIT 是 对 某 个 记录 修改 ,BROWSE 用 全 屏幕 方式 
对 所 有 记录 修改 ,它们 都 不 能 对 一 组 记录 (满足 一 定 条 件 ) 的 
例 :将 图 5. 1 中 工 班 每 个 学 生 的 语文 成 绩 都 加 5 分 。 
.USE 成绩 < 
.CHANGE FIELDS 语文 FOR 班 别 王 2<! 
记录 :00007 
语文 :88 
TO，_ 
(输入 93) 
接着 出 现 第 二 个 满足 条 件 的 学 生 , 按 此 方法 继续 修改 。 
(2) REPLACE (ALL) (字段 名 》 WITH 〈 值 ){( FOR 
(条件 》} 
功能 : 
1) 当 没有 参数 ALL 时 ,只 对 当前 记录 进行 操作 ,即将 当 
前 记录 的 字段 的 值 用 REPLACE 的 《〈 值 代替 。 
2) 当 有 参数 ALL 时 , 则 对 满足 条 件 的 记录 (如 果 没 有 
FOR 子 句 , 则 对 所 有 记录 ) 进 行 替 代 操 作 。 
比较 :对 一 些 有 规律 的 修改 工作 ,可 直接 用 REPLACE 傅 
令 完成 ,不 需要 像 CHANGE 那样 作 手动 修改 。 
例 : 将 图 5. 1 中 2 班 每 个 学 生 的 语文 成 绩 都 加 5 分 ( 注 
意 与 CHANGE 的 例子 作 比 较 )。 
.USE 成 绩 <- 
.REPLACE ALL 语文 WITH 语文 十 5 FOR 班 别 一 2<! 
.LIST< 
00001 11 张 志 远 9490 
00002 12 马 晓 丽 95 87 


00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 


可 见 , 对 于 自 有 规律 的 修改 ,使 用 命令 REPLACE 比 


13 许 昆 
16 李 灿 
17 赵 天 山 
112 李 春 
21 周 明 
2 3 刘 怡 文 
25 张 威 
2 6 人 徐 庚 福 


CHANGE 方便 。 
2. 数据 库 结 构 的 修改 和 复制 


我 们 知道 ,一 个 数据 库 文件 都 有 一 个 结构 , 它 是 数据 库 文 
件 的 框架 。 上 一 节 我 们 已 介绍 了 怎样 修改 ,增添 和 删除 记录 ， 
这 一 节 , 我 们 将 介绍 数据 库 结构 的 复制 .修改 .增添 和 删除 。 最 
后 ,还 介绍 对 一 个 只 有 框架 (数据 库 文 件 结构 ) 的 数据 库 建立 


记录 的 另 一 种 方法 。 
〈1) 数 据 库 文件 结构 的 复制 


COPY STRUCTURE TO (文件 名 》 

功能 :将 当前 已 打开 的 数据 库 文件 的 结构 复制 到 指定 的 
数据 库 文件 ,这 个 新 文件 只 有 结构 (框架 ) 而 没有 记录 。 

例 :将 成 线 的 结构 复制 到 文件 “成 绩 1”。 


.USE 成绩 局 
.LIST _ STRUCTURE- 
文件 的 结构 成绩. DBF 
记录 个 数 :00010 
最 后 更 改 的 日 期 :02/01/92 
主 区 使 用 的 数据 库 
字段 名 字 类 型 宽度 小 数位 
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85 51 
67 80 
50 43 
90 83 
88 85 
82 87 
90 93 
65 96 


001 班 别 N 001 0 

002 学 号 N 002 0 

003 姓名 C 008 

004 语文 N 003 0 

大 火 合计 大 大 00018 

.COPY STRUCTURE TO 成 绩 1-4 
.USE 成绩 1 


.LIST STRUCTURE<1 
文件 的 结构 :成 绩 . DBF 
记录 个 数 :00000 

最 后 更 改 的 日 期 ;02/01/92 

主 区 使 用 的 数据 库 

字段 “ 名字 类 型 宽度 小 数位 
001 “ 班 别 N 001 0 


002 学 号 N 002 0 

003 姓名 C 008 

004 语文 N 003 0 

005 数学 N 003 0 

火炎 合计 大火 00018 
(2) 数 据 库 文件 结构 的 修改 


MODIFY STRUCTURE 功能 :显示 当前 打开 的 数据 库 
的 结构 ,通过 ”` N 增添 一 个 字段 ，` T 删除 一 个 字段 ,修改 字 
段 名 只 需 在 原 基 玉 段 名 处 键入 正确 的 名 字 即 可 。 

注意 :使 用 此 命令 时 ,这 个 数据 库 原 来 的 所 有 记录 将 丢 
失 。 若 想 对 一 个 数据 库 文件 增加 (或 修改 ) 一 个 字段 ,又 不 想 丢 
失 原来 的 记录 ,请 看 本 节 最 后 一 部 分 一 一 例子 与 技巧 。 

例 : 图 5. 1 的 数据 库 文件 结构 增加 一 个 字段 “英语 ”并 将 
字段 “语文 ? 改 成 “中 文 ”。 

.USE 成绩 < 
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.MODIFY STRUCTURE<-1I 
修改 将 删除 所 有 的 数据 记录 大 大 六 大 大 大 
继续 ? (Y/N) 
(回答 Y) 

名 字 类 型 长 度 小 数 
字段 01: 班 别 N 001 “000 


字段 02:，， 学 号 N 002 000 
字段 03，， 姓名 C 008 ， 000 
字段 04: 语文 N 003 000 
字段 05: 数学 N 003 000 


〈 通 过 功能 键 移动 光标 ,功能 键 与 第 二 节 中 的 CREAT 建 
库 的 功能 键 一 样 ,如 “ X 使 光标 下 移 ) 
1) 将 光标 移 到 “语文 ”一 项 , 改 成 “中 文 ”。 
2) 按 “ N 增添 一 个 空白 字段 , 填 入 “英语 "字段 。 
3) 按 “ W 存盘 结束 。 
《3) 建 立 数据 记录 的 另 一 种 方法 
第 二 节 中 ,我 们 学 了 用 命令 APPEND 建立 数据 记录 ( 手 
动 ) ,在 这 里 ,我 们 将 介绍 命令 APPEND FROM 从 另 一 个 数据 
库 借 用 一 些 数据 记录 (自动 ) 。 
APPEND FORM 《文件 名 》 
功能 :将 指定 的 文件 名 的 记录 添加 到 当前 打开 文件 的 未 
尾 。 添 加 根据 同名 原则 , 即 指定 文件 名 中 的 某 个 字段 名 (如 N) 
下 的 值 复制 到 当前 文件 的 字段 N。 
例 :建立 一 个 比 图 5.1 的 结构 多 一 个 字段 “英语 ”的 空 杠 
架 , 再 将 图 5.1 中 的 数据 记录 添 名 到 此 新 文件 中 。 
.USE 成绩 < 
.COPY STRUCRE TO 成 绩 1< 
.USE 成 绩 1< 
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.MODIFY STRUCTURE< 
( 按 上 述 方法 增添 一 个 记录 项 “英语 
.APPEND FORM 成 绩 <1 
3. 数据 库 文 件 的 操作 
(1) 数 据 库 文件 的 改名 
RENAME 《〈 旧 文件 .DBF) TO (新 文件 . DBF》 

功能 :将 昌文 件 名 改 成 新 文件 名 。 由 于 涉及 磁盘 文件 的 操 
作 , 故 要 加 上 扩展 名 DBF 。 

例 :将 文件 "成绩 . DBF? 改 成 “级 1. DBF”。 

.USE ”成绩 <4 

.RENAME 成绩 .DBE TO 级 1.DBF< 
(2) 数 据 库 文件 的 删除 

DELETE FILE 《文件 名 . DBF》 
例 : 将 文件 “级 1. DBF" 删 除 。 

.USE<1 

.DELETE FILE 级 1.DBF<1 

(3) 复 制 数据 库 文件 

1)COPY TO (文件 名 》 

功能 :将 当前 打开 的 文件 复制 给 指定 文件 。 注 意 , 指 定 文 
件 原来 的 内 容 将 与 当前 打开 的 文件 一 模 一 样 。 这 一 点 与 “与 
APPEND FORM (增添 ) 不 丢失 原来 的 数据 不 同 。 

例 :备份 成 绩 文 件 

.USE 成绩 <1 
.COPY TO 成 绩 备 <! 

这 样 , 对 于 图 5. 1 的 数据 库 成 绩 ,我 们 可 以 制 一 备份 “成 
绩 备 ”。 当 前 文件 被 改动 后 ,我们 不 需要 重新 再 输入 这 些 记录 ， 
只 需 : 

.USE 成 绩 备 <4 


.COPY TO 成 绩 <41 


恢复 原来 的 内 容 。 注 意 , 这 时 的 “成 绩 备 ” 文 件 内容 并 不 改 


2)COPY TO (文件 名 〉， FIELDS 字段 1, 字 段 2， 
oo ,字段 n FOR (条件 》 
功能 :只 复制 满足 条 件 的 记录 的 指定 字段 。 
例 : 复 制 (备份 ) 成 绩 文件 中 1 班 学 生 的 姓名 .语文 和 数学 
三 个 字段 。 
.USE 成 绩 刀 4 
.COPY TO 成 绩 + FIELDS 姓名 ,语文 ,数学 FOR 
班 别 一 1-34 
.USE ”成 绩 <! 
.LIST OFF<! 
张 志 远 94 90 
马 晓 丽 95 87 
许 昆 85 51 
李 灿 67 80 
赵 天 山 50 43 
李 春 9 83 
4. 数据 记录 的 排序 (分 类 ) 
对 一 个 数据 文件 的 记录 进行 排序 ,就 是 按 其 中 某 些 字 段 
的 大 小 从 小 到 大 (或 大 到 小 ?进行 排队 。 
SORT TO (文件 名 〉 ON “字段 名 ) [L/D1/A] 
功能 :对 当前 打开 的 数据 库 按 (字段 名 ?的 值 从 大 到 小 ( 当 
选择 伟 数 /d 时 ) 或 从 小 到 大 (当选 择 参 数 /a 时 ) 的 顺序 ,生成 
一 个 新 文件 。 
例 : 将 图 5. 1 的 记录 按 语 文成 绩 从 大 到 小 排序 。 
.USE 成绩 <! 
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.SORT TO 成 绩 1 ON 语文 /DA 


.USE ”成绩 1 

.LIST< 

00001 12 马 晓 丽 95 87 
00002 11 张 志 远 9490 
00003 112 李 春 9083 
00004 25 张 威 9093 
00005 21 周 明 8885 


00006 13 许 昆 8551 
00007 23 刘 怡 文 82 87 
00008 16 李 灿 6780 
00009 26 人 徐 庚 福 65 96 
00010 17 赵 天 山 50 43 
5. 例子 与 技巧 
结束 本 章 之 前 ,我 们 介绍 一 个 综合 的 例子 。 
假设 我 们 已 建立 一 个 数据 库 文件 “成 绩 ”, 它 有 十 条 记录 ， 
见 图 5. 1 。 要 求 完成 ， 
1) 增 加 一 个 字段 "总 分 ”。 
2) 计 算 各 人 的 总 分 。 
3) 按 总 分 从 高 到 低 排序 输出 。 
4) 分 别 计算 全 级 的 语文 ` 数 学 和 总 分 这 三 项 各 自 的 平均 
分 。 
5) 显 示 总 分 在 全 级 平均 分 以 下 的 人 数 和 总 分 比 全 级 平均 
分 还 少 20 分 的 所 有 学 生 的 名 单 。 
过 程 如 下 : 
(复制 “成 绩 文 件 的 结构 ) 
.USE 成绩 < 
.COPY STRUCTURE TO 人 成绩 1< 刀 
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(成 绩 1? 增 加 字段 “总 分 

.USE 成绩 1< 

.MODIFY STRUCTURE<4 

( 按 上 节 介 绍 的 方法 修改 结构 ) 

(将 “成 绩 ? 中 的 记录 增添 到 “成 绩 1" 文 件 ) 
.APPEND FORM 成绩 < 
《修改 “成 绩 ? 文 件 ) 

.COPY TO 成 绩 <1 

(计算 各 人 总 分 ) 

.USE 成绩 < 

.REPALCE ALL 总 分 WITH 语文 十 数学 刀 4 
( 按 总 分 从 高 到 低 排序 ) 

.SORT TO 成 绩 2 ON 总 分 /DA 
(显示 排序 名 单 ) 

.USE 成绩 2<! 

.LIST OFF<:1 

1 184 张 志 远 9490 

5 183 张 威 9093 

2 182 马 晓 丽 95 87 

1]2 173 李 春 9083 

1 173 周 明 8885 

3 169 刘 怡 文 8287 

6 161 徐 康 福 65 96 

6 147 李 灿 6780 

3 136 许 昆 8551 

7 93 赵 天 山 50 43 
(计算 全 级 的 平均 分 ) 

.SUM ALL 语文 TO Cl<l! 

.SUM . ALL 数学 TO  C2<1! 

.SUM ALL 总 分 TO C3<+ 


王 天 王 己 一 一 一 


-.? C1/10< (语文 平均 分 ) 


80.6 
.? C2/10<1 (数学 平均 分 ) 
79.5 
.? C3/10<4  〈 总 分 平均 分 ) 
160.1 


〈 显 示 总 分 在 全 级 平均 分 以 下 的 人 数 ) 
.COUNT ALL FOR 总 分 二 C3/10<4 
3 

( 列 出 总 分 比 全 级 平均 分 还 少 20 分 的 学 生 ) 
.LIST OFF FOR 总 分 <C3/10 一 20<! 
1 3136 许 昆 8551 

1 793 赵 天 山 50 143 
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第 六 章 ”LOGO 语言 入 门 


LOGO 是 一 种 专 为 青少年 学 生 和 电脑 初学 者 设计 的 计算 
机 高 级 语言 。 它 从 形象 思维 出 发 ,通过 搭 积 木 拼 图 方式 进行 编 
程 训练 ,培养 学 生 的 想像 力 和 创造 力 。 

另外 ,LOGO 语言 是 先进 的 结构 程序 设计 语言 。 它 不 仅 使 
孩子 们 从 小 就 学 会 良好 的 程序 设计 技术 ,为 以 后 学 习 打 好 基 
础 ,而 且 还 可 以 培养 孩子 的 结构 化 思维 方法 。 

本 章 主要 介绍 海龟 作 图 , 它 是 LOGO 语言 的 一 个 重要 部 
分 ,内 容 简 单 易 学 ,对 低 幼 儿童 非常 适用 。 


3$6.1 启动 LOGO 


中 华 学 习 机 已 经 将 LOGO 语言 固化 在 主机 电路 板 上 的 
只 读 存 贮 器 内 。 对 于 不 同 的 机 器 配置 ,可 以 采用 不 同 的 方法 将 
LOGO 语言 调 出 。 
(1 在 中 华 学 习 机 系统 只 配 有 主机 、 电 视 机 和 录音 机 的 情 
况 下 ,可 以 在 提示 符 “] ”下 鼓 入 
] LG<+ (< 代表 RETURN 键 ) 
即 可 进入 LOGO 语言 ,其 中 *?? 为 LOGO 语言 提示 符 。 
《2) 在 中 华 学 习 机 配 有 软盘 驱动 器 的 情况 下 , 启动 
DOS3. 3 后 , 敲 入 
]MAXFILES 1 < 
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]LOGO < 
便 可 进入 LOGO 语言 。 


$ 6. 2 ”进入 与 退出 绘图 状态 


“?? 号 下 打 入 
DRAW<+i 
就 可 以 进入 LOGO 的 绘图 状态 .此 时 清除 屏幕 所 有 显示 
内 容 ,在 正中 央 有 一 个 尖 头 朝 上 的 白色 小 三 角 , 这 就 是 所 谓 的 
海龟 。 海 龟头 所 指 的 方向 称 为 指向 ,海龟 头 在 爬行 时 ,就 沿 头 
的 指向 画 出 线 来 .屏幕 底 部 保留 4 行 称 为 交谈 区 ,以 供 显示 用 
户 的 命令 和 计算 机 的 响应 信息 。 


若 再 打 入 
NODRAW -+ (缩写 为 ND) 


则 海龟 消失 ,又 返回 绘图 前 的 状态 。 


$ 6.3 海龟 作 由 命令 


1. 基本 命令 
使 海龟 向 前 向 后 移动 的 命令 如 下 
FD( 步 数 ) 一 一 向 前 移动 指定 的 步 数 ( FD 为 FOR- 
WARD 的 缩写 ) 
缩写 ) 


学 习 机 整个 屏幕 左右 为 280 步 (水 平方 向 ), 上 下 为 200 步 
左右 (垂直 方向 ), 若 从 屏幕 的 中 心 点 (0,0) 算 起 ,到 屏幕 最 左 
边 为 140 步 ,到 屏幕 最 右边 为 139 步 ,到 最 上 边 为 101 步 左右 ,到 
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最 下 边 为 100 沙 无 右 。 例 如 


FD 60<! 
可 使 海龟 向 前 60 步 。 
使 海 怨 左 右 转动 的 命令 如 下 ; 
RT《 和 角度) 一 一 向 右 转 动 指定 的 角度 ( RT 为 ”RIGHT 
的 缩写 ) 
LT 角度 ) 一 一 向 左 转动 指定 的 角度 ( LT 为 ”LEFT 的 
缩写 ) 
例如 
LT 45<41 


是 使 海龟 从 原来 前 进 的 方向 向 左 转动 45 度 。 海 龟 转 一 周 为 360 
度 。 


DRAW+:! ( 清 屏 ,海龟 回 到 起 双 位 置 ) 
FD 60 -< (前 进 60 步 ) 
RT 90 -< ( 右 转 90 庶 ) 
FD 60 (前 进 60 度 ) 
RT 90 < ( 右 转 90 度 ) 
FD 60 < (前 进 60 步 ) 
RT 90 -< ( 右 转 90 庶 ) 
FD 60 -< (前 进 60 度 ) 
RT 90 -< ( 右 转 90 度 ) 


画 出 的 图 形 如 图 6.1 所 示 。 
例 2 ” 画 一 个 等 边 三 角形 , 边 长 为 50 步 ,采用 的 命令 如 下 ; 
DRAW < 
FED 50<+ 
LT 120<4 
FD 50<:! 
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LT 120<-1 
FD 50<4 
LT 120<1 


画 出 的 图 形 如 图 6. 2 所 示 


图 6. 2 
2. 重复 命令 
从 上 面 两 个 图 形 的 作 图 过 程 中 ,可 以 看 到 我 们 所 键入 的 
命令 重复 很 多 , 画 正 方形 时 ,前 进 和 右 转 命令 重 复 了 四 次 , 画 
三 角形 时 ,前 进 和 左 转 的 命令 重复 了 三 次 。 采 用 重复 命令 可 以 
简化 这 些 操作 ,命令 格式 如 下 
REPEAT 《重复 次 数 〉》 [重复 的 命令 》] 
例 3 “改写 例 ! 的 画 正方 形 的 命令 。 
DRAW 
REPEAT 4 [FD 60 RT 90 ] 
例 4 改写 全 :的 画 三 角形 的 命令 。 
DRAW 
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REPEAT 3 [EFD 50 LT 120 ] 

例 5 画 五 边 形 ,采用 的 命令 如 下 

DRAVW 
REPEAT 5 [FD 50 LT 72] 

从 例 3、 例 4、 例 5, 我 们 可 以 总 结 凡 画 一 个 多 边 形 所 采用 的 

命令 格式 
REPEAT a [LFD b LT ec] 

其 中 ,a 为 边 形 数 , 如 四 边 形 为 4, 五 边 形 为 5;b 为 边 长 的 
大 小 ;fc 等 于 360/a,c.a 一 360, 也 就 是 说 ,海龟 连续 转 了 a 次 
后 ,正好 是 360", 回 到 了 原 处 .如 画 5 边 形 时 , 龟 转 5 次 (每 次 向 
同方 向 转 了 72?? 就 转 过 360" 了 。 

例 6 画 一 个 圆 。 

大 家 知道 ,多 边 形 的 边 数 越 多 , 它 越 是 接近 于 圆 . 从 这 一 
常识 ,我 们 可 以 采用 多 边 形 来 近似 地 代替 圆 。 殴 入 


DRAVW 
REPEAT 360 [FD 1 RT 1] 
画 出 来 的 是 接近 圆 的 图 形 。 


其 实 , 正 36 边 形 也 很 近似 于 圆 了 .读者 可 以 试验 一 下 。 
REPEAT 人 允许 嵌 套 ,也 就 是 说 在 一 个 重复 命令 的 执行 内 
容 中 允许 包含 另外 的 重复 命令 。 
例 7 画 出 图 6. 3 的 风车 。 
DRAYVV 
REPEAT 14 [ REPEAT 2 [FD 40 RT 90 FD 
20 RT 9%0] RT 90】] 
3. 抬 笔 .落笔 命令 
利用 抬 笔 命令 和 落笔 命令 ,可 以 画 一 些 分 离 的 图 形 。 命 令 
如 下 : 
PU 一 一 抬 笔 命令 ( PU 为 PENUP 的 缩写 ) 
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PD 一 一 落笔 命令 ( PD 为 PENDOWN 的 缩写 ) 
例 8 画 一 个 回 字 图 形 , 如 图 6. 4 所 示 。 


图 6. 4 
对 于 这 个 回 字 图 形 ,我 们 可 以 把 它 看 成 是 两 个 矩形 。 在 画 

完 第 一 个 矩形 之 后 ,只 要 抬 起 笔 来 把 海龟 移 到 所 要 画 的 第 二 
个 矩形 的 某 一 条 边 上 ,然后 落笔 再 画 出 一 个 矩形 就 行 了 .命令 
如 下 : 

DRAW 

REPEAT 3 [FEFD 60 RT 90]j 

FD 60 


FD 30 RT 90 
BK 30 


REPAET 3 [FD 120 RT 90]j 
FD 120 


4. 藏 龟 和 显 龟 命 令 

有 时 ,海龟 成 了 一 个 多 余 的 物体 ,无 论 把 它 放 在 什么 位 
置 ,总 是 使 图 形 显 得 不 那么 美观 .这 时 我 们 可 以 采用 藏 龟 命 
令 , 将 海龟 暂时 隐藏 起 来 ,需要 时 再 将 海 色 显示 出 来 。 

HT 一 一 藏 龟 ( HT 为 HIDETURTLE 的 缩写 ) 
ST 一 一 显 龟 ( ST 为 SHOWTURTLE 的 缩写 ) 

5. 清 屏 命令 

在 画 一 个 新 图 形 之 前 ,需要 将 屏幕 清除 干净 ,此 时 可 采用 
清 屏 命令 : 

CS 一 一 清 屏 (CS 为 CLEARSCREEN 的 缩写 ) 

当 我 们 逆 入 CS 之 后 ,屏幕 就 清除 干净 ,并且 海 色 移 回 原 
点 一 一 屏幕 的 正中 央 。 

6. 色彩 的 设置 

如 果 所 用 的 是 彩色 电视 机 或 者 彩色 显示 器 , 便 可 在 不 同 
颜色 的 背景 下 , 画 出 彩色 线条 。 

PC( 颜 色 编 号 一 一 设置 画笔 的 颜色 ( PC 为 PENCOI- 
OR 的 缩写 ) 

BG( 颜 色 编 号 一 一 设置 画笔 的 颜色 ( BG 为 BACK- 
GROUND 的 缩写 ) 

其 中 ,颜色 的 编号 如 下 :0 一 黑色 ;1 一 白色 ;2 一 绿色 ;3 一 
紫色 ;4 一 桔 黄色 ;5 一 兰 色 。 若 无 明确 指定 颜色 编号 , 则 LOGO 
自动 采用 0 号 颜色 ( 即 黑 色 ) 的 背景 ,1 号 ( 即 白 色 ) 的 彩 笔 。 

例 9 画 一 个 由 五 种 颜色 组 成 的 五 角 星 。 

CS< 

BG 0<: 

PC 1 FD 50 RT 144< 
PC 2 FD 50 RT 144<! 
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PC 3 FD 50 RT 144<4! 
PC 4 FD 50 RT 144<: 
PC 5 FD. 50 RT 144<4! 
从 上 面 可 以 看 到 ,在 一 行 中 可 以 输入 好 几 个 命令 ,只 要 命 
令 之 间 留 有 空格 即 可 。 
7. 定位 命令 
海龟 的 坐标 系 , 如 图 6. 5 所 示 。 原 点 就 在 清 屏 以 后 海龟 所 
处 的 位 置 。 有 了 这 样 一 个 海龟 坐标 系 , 对 于 屏幕 上 任何 一 点 ， 
都 可 以 来 用 坐标 来 表示 了 .。 如 图 中 A 点 , 便 可 表示 为 (50,50) 


图 6. 5 
海龟 的 定位 命令 有 下 列 三 条 : 
SETX(X 坐标 值 ) 一 一 向 水 平方 向 移动 到 指定 的 坐标 


位 置 
SETY《(Y 坐标 值 ) 一 一 向 垂直 方向 移动 到 指定 的 坐标 
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位 置 
SETXY《(X 坐标 值 )(Y 坐标 值 ) 一 -移动 到 (X,Y) 座 
标 位 置 上 
例 10 绘制 奥运 会 会 徽 ( 见 图 6. 6 ) ,采用 命令 如 下 : 
DRAVW 
BG 1 PU 
SETXY 一 90 50 
PD PC 5 
REPEAT 36 [FD 6 RT 10] 
PU 
SETXY  --40 50 
PD PC 0 
REPEAT 36 [FD 6 RT 10] 
PU 
SETXY 10 50 
PD PC 3 
REPEAT 36 [FD 6 RT 10] 
PU 
SETYX 一 65 0 
PD PC 14 
REPEAT 36 [FD 6 RT 10] 
PU 
SETXY 一 15 0 
PD PC 2 
REPEAT 36 [FD 6 RT 10] 


$ 6.4 过 程 及 其 编辑 


1. 过 程 的 定义 
在 这 之 前 ,我 们 在 用 海龟 作 图 时 ,是 通过 不 断 地 下 达 命 令 
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多 6.6 
来 让 海龟 完成 的 ,这 样 打 入 的 命令 只 起 一 次 作用 ,为 了 能 重复 
地 使 用 ,必须 把 它们 定义 成 一 个 过 程 。 
定义 一 个 过 程 的 格式 是 
TO 《过 程 名 》 
“过程 体 》 
END 
TO 表示 过 程 开 始 , 在 To 后 面 空 一 格 就 可 以 融入 给 过 程 
起 的 名 字 。 过 程 体 是 为 了 解决 某 种 问题 而 按照 一 定 次 序 编排 
的 一 组 命令 。 最 后 一 行 END 表示 过 程 或 程序 结束 。 
例 定义 一 个 画 三 角形 的 过 程 ( 过 程 名 为 SJX) 。 敲 入 : 
TO  SJX 
DRAVW 


ELT 120 
END 
再 敲 入 “C (” 表示 CTRL) ,屏幕 上 出 现 
SJX DEFINED 
表明 过 程 SJX 已 经 定义 完毕 。 以 后 , 当 需 要 画 边 长 为 50 
的 三 角形 时 ,就 不 必 像 以 前 一 样 一 句 句 地 输入 ,只 要 毅 入 
SJX 
屏幕 上 就 会 立即 画 出 一 个 三 角形 来 。 
2. 过 程 的 编辑 
一 个 过 程 被 定义 以 后 ,如 果 感 到 不 怎么 满意 ,就 可 以 对 它 
进行 修改 和 编辑 。 
下 面 我 们 以 修改 SJX 为 例 。 敲 入 
EDIT SJX<l (EDIT 是 编辑 命令 ) 
计算 机 进入 编辑 状态 ,此 时 SJX 过 程 被 列 出 : 
TO SJX 
DRAVW 
FEFD 50 
LT 120 
FD 50 
LT 120 
FD 50 
LT 120 
END 
光标 处 于 屏幕 的 左上 和 角 , 此 时 可 以 对 任 一 个 命令 内 容 进 
行 修改 .常用 的 编辑 命令 如 下 : 
”P 一 一 光标 向 上 移动 一 行 
” N- 一 一 光标 向 下 移动 一 行 
村 一 一 光标 向 左 移动 一 格 


忆 一 一 光标 向 有 移动 一 格 
”D 一 一 消除 光标 所 在 位 置 的 字符 
ESC 一 一 消除 光标 左边 的 一 个 字符 
“K- 一 消除 当前 行 中 光标 右边 的 所 有 字符 


”C 一 一 保存 编辑 结果 并 退出 编辑 
”G 一 一 不 保存 编辑 结果 而 退出 编辑 
请 读者 利用 上 述 命令 ,将 SJX 过 程 的 FD 50 金 改 为 FD 
60, 然 后 保存 修改 结果 并 退出 编辑 状态 。 


$ 6.5 子 过 程 


在 LOGO 中 ,一 个 过 程 作 为 另 一 个 过 程 的 一 部 分 ,就 叫 
做 子 过 程 。 使 用 子 过 程 来 画图 ,可 以 说 是 LOGO 语言 中 非常 
重要 的 功能 ,因为 许多 复杂 的 图 形 ,都 是 由 一 些 基 本 图 形 组 成 
的 。 

例 1 把 画 四 边 形 作为 一 个 子 过 程 ( 子 过 程 名 为 ZFX )， 
来 画 一 扇 窗口 ( 见 图 6.7) 。 
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(1) 先 定义 ZFX 子 过 程 , 敲 入 
TO ”ZEFX 
REPEAT 4 [FD 50 RT 90] 
END 
(2) 再 定义 画 窗 口 的 过 程 , 骨 入 
TO CH 
DRAW 
ZEFX 
LT 90 
ZEFX 
LT 90 
ZEFX 
LT 90 
ZFX 
LT 90 
END 


也 就 是 画 一 个 正方 形 后 就 让 海 色 旋 转 90 度 ,直到 海龟 又 
回 到 起 始 位 置 与 起 始 方向 ,一 扇 窗 户 的 图 案 便 完 成 了 。 
(3) 运 行 CH 过 程 。 敲 入 
CH 
便 可 在 屏幕 上 出 现 一 扇 窗 户 。 
例 2 画 一 座 房子 (如 图 6.8 所 示 ) 
从 图 中 可 以 看 出 ,这 座 房子 是 由 房 顶 . 墙 壁 和 门 组 成 的 。 
下 面 我 们 就 像 盖 房 子 料 ,将 它们 分 别 做 好 ,然后 再 安装 起 来 。 
(1) 墙 壁 实 际 上 是 一 个 正方 形 , 可 以 直接 调用 以 下 过 程 。 
TO ZEFX1 
REPEAT 4 [L FD 25  RT 90 ] 
END 
(2) 门 实际 上 是 一 个 长 方形 ,可 以 直接 调用 以 下 过 程 。 
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图 6. 8 
TO CEFX 
REPEAT 2 [FD 15 RT 90 FD 5 RT 90] 
END 
(3) 房 顶 实 际 上 是 一 个 正三 角形 ,可 以 直接 调用 以 下 过 
程 。 
TO _SJX1 
REPEAT 3 [FD 35 LT 120] 
END 
(4) 各 种 部 件 均 已 做 完 , 下 一 步 就 要 安装 了 .。 先 将 墙 竖 起 
来 , 走 到 门 的 位 置 , 装 起 门 ,再 盖 房 顶 。 
TO FANG 
DRAW 
ZFX1L RT 90 FD 10 LT 90 
CFX LT 9%0 FD 10 RT 90 
FD 25 LT 9%0 FD 5 RT 180 
SJX1 
END 
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TO ”SF 

REPEAT 5 [FD 90 RT 90] 

FD 15 

RT 15 

SF 

END 

运行 后 就 在 屏幕 上 画 出 葵花 , 画 完 后 又 连 画 不 断 . 为 了 停 

画 , 可 ”G 


$6.6 带 参 数 的 过 程 


一 个 不 带 参 数 的 过 程 , 它 所 绘制 的 图 形 的 大 小 和 形状 是 
固定 不 变 的 。 如 果 一 个 过 程 带 有 参数 ,那么 , 它 就 可 以 利用 参 
数 的 不 同 取 值 来 改变 所 给 图 形 的 大 小 和 形状 。 

例如 有 个 图 案 ( 见 图 6. 9), 包 含 四 个 大 小 不 同 的 正方 形 ， 
我 们 要 用 同一 个 过 程 来 实现 它 。 
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图 6. 9 
TO ZEFXX  : x (过 程 名 与 参数 之 间 要 有 空格 ) 
REPEAT 4 [FD :x LT 90] 
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END 
其 中 x 称 为 参数 , 它 代表 了 正方 形 的 边 长 。 要 想 画 出 不 
同 边 长 的 正方 形 ,就 要 在 执行 时 送 入 不 同 的 数值 .注意 ,在 参 
数 之 前 必须 带 有 一 个 “:” 号 (如 :x)。 
例如 ,要 画 出 图 中 最 小 的 正方 形 ,可 台 入 
ZFXX 30 
如 果 要 画 出 图 中 最 大 的 正方 形 , 则 可 散 入 
ZFXX 60 
例 画 出 “ 双 菱 ?图 形 ( 见 图 6. 10) 
TO SL :x 
Dw 
HT 
RT 45 
ZFXX  : x 
PU 
SETX  : x 炎 3/7 


在 这 个 叫做 SL〈 双 菱 ) 过 程 中 ,参数 x 一 共 出 现 了 三 次 ， 
第 一 次 ,用 来 画 右边 的 菱形 ;第 二 次 ,用 来 控制 两 个 壮 形 相交 
部 分 的 多 少 ,使 只 相交 x 的 3/7( 七 分 之 三 ); 第 三 次 ,用 来 控 
制 左 边 萎 形 的 大 小 。 

运行 后 可 在 屏幕 上 画 出 “ 双 鞭 ?图形 ,图 形 的 大 小 由 痪 入 
的 参数 来 确定 。 


。95。 


图 6. 10 


8 6.7 条 件 判别 


如 果 我 们 已 敲 入 如 下 过 程 
TO LUO  :x 
FED :x LT 90 
LUO  :Xx 十 2 
END 
则 当 我 们 贡 入 
LUO 5 
会 出 现 一 个 螺旋 线 , 如 图 6. 11 所 示 。 执 行 的 过 程 如 下 : 
海龟 首先 执行 ED : x LT 90, 前 进 5 步 和 左 转 90 度 ,下 一 语 
名 为 LUO :x 十 2, 即 返回 调用 本 过 程 , 但 参数 增加 了 2, 即 x 一 
7, 于 是 前 进 7 步 和 左 转 90 度 。 又 执行 LUO :x 十 2, 于 是 又 在 7 步 
的 基础 上 增加 2 ,前 进 9 步 和 左 转 90 度 ,…。 这 样 反复 不 断 地 执 
为 了 使 海 旬 停 下 来 ,可 以 融入 “ G 键 。 
能 不 能 寻 技 一 种 方法 控制 海龟 在 合适 的 地 方 停 下 来 ?可 
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图 6. 1 
以 。 这 就 要 借助 于 条 件 判别 语句 (IE )。 
从 上 面 例 子 中 ,每 递归 调用 一 次 , 边 长 x 增加 2, 如 果 我 
们 设 定 : 当 x>50 时 ,海龟 应 停 下 来 。 利 用 条 件 语句 则 有 
IF :x>50 THEN  STOP 
其 中 x>50 是 判别 条 件 。 语 句 的 含意 是 :如 果 x 之 50 , 则 
执行 STOP 语句 ,海龟 就 停 下 来 ,否则 继续 执行 下 去 。 
现 将 上 面 的 过 程 加 以 改造 ， 
TO LUO  :x 
IF :x>50 THEN  STOP 
FD :x LT 90 
LUO  :x 十 2 
END 
当 我 们 再 次 融入 
LUO 5 
螺旋 线 便 会 在 边 长 增 至 50 步 时 , 自动 停 下 来 。 
条 件 语句 使 学 习 机 有 了 判别 能 力 , 它 的 一 般 格 式 : 
IF 〈 和 条件》 THEN “一 组 命令 》 
含意 是 : 当 条 件 成 立时 ,就 执行 THEN 后 面 的 一 组 命令 。 
例 画 出 SIN 琐 数 的 标准 正弦 曲线 。 


分 析 : 首 先 通过 LOGO 标准 函数 SIN x 求 出 x 的 正弦 项 
数值 ,然后 利用 坐标 定位 命令 天 出 正弦 曲线 。 
TO ZB  :x 
DRAW 
HT 
SETX 139 SETX 一 140 
FED 100 BK 200 FD 100 
SINX  : X 
END 
TO SINX :，xX 
IF :x>>360 THEN SSTOP 
下 :x=0 THEN PU SETIX 一 140 PD 
SETXTY :发火 3714 一 140 70 大 SIN  :X 
SINX  :X 十 2 
END 
过 程 ZB 用 来 建立 X ,Y 坐标 系 , 而 过 程 SINX 则 是 用 来 
绘制 正弦 曲线 的 ,定义 完 过 程 以 后 , 当 台 入 ; 
ZB 0<+4 


海龟 便 慢 慢 地 画 出 如 图 6. 12 所 示 的 正弦 曲线 来 。 
| 


图 6. 12 
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第 七 章 “BASIC 语言 浅说 


BASIC 语言 是 众多 程序 设计 语言 中 运用 较为 普遍 的 一 
种 ,由 于 它 简单 易学 ,具有 强 的 直观 性 ,所 以 很 适合 初学 者 使 
用 。 


$7.1 初步 认识 


下 面 举 一 个 例子 ,使 大 家 对 使 用 BASIC 语言 有 一 个 具体 
了 解 。 
例 计算 (3 十 4) 二 5 
编写 的 程序 如 下 ， 
10 LET  X= (3 十 4)75 
20 PRINT  X 
30 END 
程序 的 含意 是 : 
10 行 计算 (3 十 4) 盖 5, 其 针 黑 存放 在 X 单元 中 二 ”号 写 
成 “/? 
20 行 打印 
30 行 ”结束 
在 这 个 程序 中 ,我 们 可 以 看 到 ,一 个 程序 是 由 若干 个 语句 
组 成 。 每 一 个 语句 的 开头 为 行 号 ,或 称 为 语句 标号 , 它 必 须 是 
正 整 数 ,其 作用 是 规定 了 计算 机 执行 程序 时 的 顺序 。 在 一 般 情 
况 下 ,计算 机 总 是 从 语句 标号 小 的 向 标号 大 的 方向 执行 。 标 号 
后 是 语句 定义 符 和 语句 体 ,语句 定 义 符 规 定 计算 机 执行 何 种 
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操作 ,如 20 行 语句 中 的 PRINT ,其 功能 是 命令 计算 机 显示 结 
果 ,30 行 的 END 表示 程序 结束 。 

语句 体 规 定语 句 定义 符 要 执行 的 具体 内 容 , 如 上 述 程序 
第 20 行 语句 中 的 “X? 为 语句 体 . 有 的 语句 (如 END 语句 ) 没 有 
语句 体 。 

程序 编 好 后 ,就 可 以 上 机 操作 。 操 作 步 又 大 致 如 下 : 

(1) 先 把 内 存 贮 器 清理 干净 

就 像 我 们 每 次 写字 之 前 要 把 黑板 擦 干净 一 样 , 在 向 学 习 
机 送 入 程序 之 前 ,也 必须 把 内 存 贮 器 清除 干净 ,否则 ,原来 内 
存 贮 器 中 的 旧 程 序 和 新 融入 的 程序 混杂 在 一 起 ,计算 机 执行 
起 来 就 会 出 错 。 

因此 在 送 入 一 个 新 的 程序 之 前 ,首先 敲 入 NEW 命令 。 项 
入 NEW 命令 的 操作 方法 是 依次 鼓 NE、Ww 三 个 英文 字母 键 ， 
再 敲 回 车 键 ( 即 RETURN 键 , 以 后 用 < 表示 )。 这 时 内 存 中 的 
旧 内 容 就 被 清除 干净 ,但 屏幕 上 并 没有 什么 反映 。 

如 果 你 也 想 清除 屏幕 上 的 显示 内 容 , 就 请 融入 : 

HOME<- 

这 时 蜡 幕 上 就 什么 也 没有 了 ,只 有 一 个 光标 在 左上 角 内 

烁 。 
(2) 问 学 习 机 输入 程序 
按照 写 好 的 程序 , 逐 行 殴 入 。 每 敲 入 一 行程 序 后 融 回 车 

键 ,就 将 这 行程 序 送 入 内 存 , 当 最 后 一 个 回 车 键 敲 入 之 后 , 程 
序 便 全 部 进入 内 存 。 

(3) 列 程序 清单 

若 要 检查 内 存 现 有 程序 ,可 敲 入 

LIST<-! 
(4) 修 改 程序 
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人 @ 在 一 个 程序 行 输入 过 程 中 (未 融入 回 车 键 ) ,发 现 有 铬 
字符 ,可 用 包 键 将 其 消去 。 
@@ 若 送 完 一 行程 序 , 并 殴 过 回 车 键 后 发 现 有 错时 ,可 以 重 
新 将 原 语 句 行 按 正 确 的 殴 入 一 次 , 则 同一 行 号 原 有 内 容 便 被 
新 敲 入 的 内 容 所 代替 。 若 要 删除 一 行程 序 , 可 打 入 该 行 语 乞 永 
号 再 融入 器 车 键 , 该 行 即 被 删除 。 
《5) 运 行程 序 
程序 键入 内 存 后 并 不 意味 着 它 会 自动 运行 ,必须 在 程序 
检查 无 误 后 键入 : 
RUN-< 
程序 便 开 始 运 行 。 如 果 我 们 敲 入 的 是 上 述 程序 , 则 屏幕 上 便 出 
现 
1.14 


这 便 是 上 面 程序 的 运行 结果 。 
% 7.2 变量 与 表达 式 


8$ 7. 1 程序 中 的 英文 字母 X 称 为 变量 ,变量 的 名 字 可 以 
由 一 串 字 母 和 数字 组 成 ,但 是 第 一 个 必须 是 字母 ,如 AAA、 
Al 等 。 

上 述 程序 中 的 (3 十 4275 叫做 表达 式 ,表达 式 是 用 运算 符 
把 数 、 变 量 、 函 数 等 连接 起 来 的 式 子 。 

BASIC 表达 式 中 所 用 的 运算 符号 与 数学 里 所 用 的 有 所 不 
同 , 如 乘 时 用 * 号 , 除 时 用 / 号 , 乘 方 时 用 号 。 例 如 4 十 
3y5-7 写成 BASIC 表达 式 是 4 大 x” 2 十 3xY” 3/7。 
BASIC 表达 式 里 只 人 允许 使 用 圆 括号 ,计算 机 运算 时 先 算 
量 内 层 圆 括号 里 的 表达 式 值 ,然后 逐 层 向 外 扩展 .例如 数学 式 
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ITx(5x 十 2) 一 3]x 二 6)x 十 9, 写 成 BASIC 表达 式 是 ((x 类 (5 大 
x 士 2) 一 3) 大 x 十 6) 关 xx 十 9。 
数学 式 中 的 开 有 平方; 正弦, 余弦, 正切 ,对 数 等 ,在 BASIC 
所 征用 称 为 标准 函数 来 表示 ,写法 如 下 : 
SQRCX) 表示 V* 
SINCX) 表示 sinx 
COS(CX) 表示 cosx 
TAN(CX) 表示 tegx 
ATN(CX) 表示 arctgx 
LOG(CX) 表示 logx, 印 x 的 自然 对 数 Inx 
计算 机 计算 表达 式 的 值 时 ,按照 如 下 的 运算 步骤 : 先 乘 
方 ,再 背 除 ,后 加 减 ,有 括 导 时 括 守 内 优先 运算 。 
例 5. 2 一 V3x 十 2 写成 BASIC 表达 式 为 
5.2” 3 一 SQR(3 大 X 二 2) 
(2 W2sin4" 写 成 BASIC 表达 式 为 
2 类 SQR(2)xSIN(C3. 14159/180x 4》 


$ 7. 3 ”赋值 语句 


在 $7. 1 程序 中 ,10 行 语句 叫做 赋值 语句 , 它 的 作用 是 计 
算 赋值 叶 必 = ”7 右边 表达 式 的 值 ,然后 将 值 赋 给 变量 X . 语 
名 格式 为 
LET 《〈 意 晶 )= 一 (表达 式 》 

， 在 程序 中 ,用 赋值 语句 给 某 个 变量 赋 一 个 值 以 后 ,这 - 
就 保存 在 这 个 变量 中 。 此 后 ,如 果 再 给 这 个 变量 赋 另 一 个 ? 
则 变量 中 原来 的 值 就 丢失 了 ,由 所 赋 的 新 值 取代 。 

例 1 
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全 . 
4 


值 


RUN (执行 程序 ) 
8 (显示 变量 A1 值 ) 


在 本 例 10 行 语句 中 ,为 变量 A 所 赋 的 值 是 7, 再 执行 20 行 
以 后 ,就 把 A 十 2, 即 9 这 个 新 值 赋 给 了 变量 A。 
用 赋值 语句 可 以 把 一 个 变量 的 值 赋 给 其 他 变量 ,其 后 , 原 
变量 的 值 并 不 丢失 。 
例 3 
10 LET A 一 10 
20 LET C= 和 A 
30 PRINT A,C 


10 10 ( 印 出 A 和 <C 的 值 ) 
例 4 利用 赋值 语句 可 以 把 变量 (假设 A 和 B ) 的 值 互 相 
交换 。 
10 LET A 一 3 
20 LET B 一 4 
30 PRINT A,B 
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80 END 
RUN 

3 4 (30 行 输出 ) 
4 3 (70 行 输出 ) 


程序 中 40~60 行 交换 了 A 和 B 的 值 . 变 量 c 的 作用 是 暂 
时 存放 变量 A 的 值 ,50 行 语句 把 变量 B 中 的 值 赋 给 变量 A ， 
这 样 变量 A 中 的 旧 值 3 就 被 变量 B 中 的 值 4 代 替 了 ,而 A 的 
旧 值 已 暂 存在 变量 C 里 ,所 以 执行 60 行 以 后 就 把 变量 A 中 原 
来 的 值 (为 3) 赋 给 了 变量 B ,从 而 完成 了 互 换 。 

编写 程序 时 ,赋值 语句 的 语句 定义 符 LET 可 以 省 略 , 例 
如 , 例 4 程序 中 的 10 语 句 可 以 改写 成 ， 

10 A 王 3 

为 了 减少 程序 的 行 数 ,还 可 以 把 几 个 语句 写 在 一 行 里 , 语 

句 之 间 用 置 号 隔 开 。 例 如 
10 A 一 3:B 一 4 

例 5 ”以 1983 年 我 国 工业 产值 为 100, 按 每 年 平均 增长 率 
为 12% , 试 计算 2000 年 时 的 工业 产值 。 

计算 公式 为 

Y 王 100 类 (1 十 X)” 

式 中 X 为 增长 率 ,n 为 年 数 ,Y 为 2000 年 的 产值 程序 如 
和 

10 X=0.12 : N 王 17 

15 Y=100x (1 十 X) ”N 

20 PRINT YY 
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25 END 
RUN 
686. 604091 


$7.4 打印 语句 


使 用 打印 语句 (PRINT) 可 以 显示 输出 各 种 信息 。 语 句 格 
式 
PRINT “一 组 打印 项 
1. 输出 变量 的 值 
如 果 PRINT 后 面 是 一 个 或 多 个 变量 , 则 计算 机 执行 时 就 
会 显示 出 这 些 变量 的 值 ( 由 前 面 语句 所 赋 给 的 )。 
例 1 
10 A 一 2 : B 一 3 : C 一 4 
20 PRINT A,B,C 
30 END 
RUN 
2 3 4 
这 三 个 变量 的 值 就 被 显示 出 来 , 值 之 间 有 一 定 间隔 。 如 果 
将 20 行 语句 中 的 逗号 改 为 分 号 ,如 
10 A 一 2 : B 王 3 : C 一 4 
20 PRINT AgB;C 
30 END 
RUN 
234 
这 三 个 变量 的 值 被 一 个 接 一 个 地 显示 出 来 .显然 ,变量 之 
闻 的 标点 符号 起 到 控制 输出 格式 的 作用 。 
我 们 把 用 分 号 时 的 输出 糙 式 叫做 紧 獒 格式 ,计算 机 执行 
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这 样 的 PRINT 语句 时 ,会 把 用 分 点 隔 开 的 变量 的 值 一 个 接着 
-个 地 显示 出 来 。 而 把 用 逗号 时 的 输出 格式 叫做 按 区 格式 , 计 
算 机 执行 时 把 用 逗号 隔 开 的 变量 的 值 输出 在 屏幕 的 标准 位 置 
上 。 所 谓 标 准 位 置 , 因 计算 机 型 号 的 不 同 会 有 所 差异 .学 习 机 
的 屏幕 每 行 有 三 个 标准 位 置 ,如 果 PRINT 语句 中 月 逗号 隔 开 
的 变量 多 于 3 个 ,那么 第 4 个 变量 的 值 就 在 下 一 行 的 头 一 个 位 
置 上 输出 ,其余 的 依 此 类 推 。 
例 2 

10 A 一 3 : B 一 2xA : C 一 3 火 人 

20 D=B 十 1 :E 一 C 十 2 

30 PRINT ,A,B,C,D,E 

40 END 


3 6 9 
7 11 
在 PRINT 语句 末尾 ,如 果 没有 任何 标点 符号 , 则 在 执行 
完 该 语句 后 , 自动 换行 。 如 果 语 句 以 分 号 或 逗号 结束 , 则 打印 
后 不 换行 。 
例 3 
10 A=2 : B=3 : C=-1 
20 PRINT 和 A 


30 行 末尾 采 岂 的 是 逗号 ,因此 40 行 的 和 值 就 打印 在 上 一 
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个 输出 值 CB 值 ) 的 下 一 标准 位 置 上 -如果 30 行 打印 语句 的 末 
尾 以 分 号 结束 ( 即 PRINT B;), 则 40 行 的 C 值 会 紧 接 在 上 一 


个 输出 值 , 即 
RUN 
2 
-34 
2. 输出 文字 信息 
采用 PRINT 语句 ,还 可 以 显示 输出 文字 信息 。 
例 4 


10 PRINT “您 好 !?” 
20 PRINT “欢迎 使 用 .” 
30 END 
RUN 
您 好 ! 
欢迎 使 用 . 
程序 中 两 个 PRINT 语句 的 语句 体 ,都 是 用 双 引 号 括 起 来 
的 文字 。 在 BASIC 中 ,用 双 引 号 括 起 来 的 文字 叫做 字符 串 。 
PRINT 语句 可 以 把 双 引 号 括 起 来 的 字符 串 照 原样 显示 输出 。 
字符 串 也 可 以 保存 变量 里 ,例如 
10 A$ = 您 好 !” 
这 种 变量 叫做 字符 串 变量 ,为 了 跟 其 他 变量 相 区 别 , 字 符 
串 变量 要 用 符号 $ 结尾 。 
例 5 
10 X 和 -= “HOW DO YOU DO 1i7 
20 YS$ 一 “您 好 !” 
30 PRINT X$$ ,YY 
40 END 
RUN 
*。 107。 


HOW DO YOU Do ! 您 好 ! 
例 6 已 知 三 名 学 生 的 分 数 为 85,68,75, 现 要 求 计 算 总 分 
及 平均 分 。 


10 A 一 85 : B 一 68 :C 一 75 
20 S 王 A 十 B 十 C 


30 M 王 S/3 

40 PRINT “总 分 二 ”3S ,“ 平 均 分 二 ”3M 
50 END 

RUN 

总 分 二 228 平均 分 二 76 


$ 7.5 转向 语句 


利用 条 件 转 向 语句 ,可 以 改变 计算 机 执行 程序 的 顺序 。 语 
句 格式 
GOTO 〈 行 号 》 
例 10 A=3 
20 GOTO 40 
30 A 一 A 十 1 
40 A 一 A 十 2 
50 PRINT 和 A 
60 “END 


当 计 算 机 执行 到 20 行 的 无 条 件 转向 语句 时 ,将 转 到 指定 
的 行 号 40 去 执行 ,因此 ,此 程序 执行 的 顺序 是 .10 一 20-40 一 
50, 而 跳 过 30 行 。 
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8$7.6， 键 盘 输 入 语句 


采用 键盘 输入 语句 ,可 以 从 键盘 上 为 变量 输入 具体 的 值 。 
语句 格式 如 下 : 
格式 1: INPUT (变量 )，( 变 量 〉 ,… 
格式 2: INPUT “( 提 示 信 息 )?”; (变量 ),〈 变 量 》，… 
例 1 设计 一 个 程序 , 当 x 一 1,2,3,4, 5，…… 等 不 同 的 
值 , 计 算出 V x 的 结果 。 程 序 如 下 
10 INPUT  X 
20 Y=SQR(CX) 
30 PRINT “X 一 ”XeY 一 ”3Y 
40 END 
计算 机 执行 时 先 遇 到 INPUT 语句 ,就 显示 一 个 问号 并 等 
待 从 键盘 上 毅 入 具体 的 值 。 敲 入 以 后 ,计算 机 就 把 这 个 值 保 存 
在 变量 里 ,然后 继续 执行 下 面 的 语句 。 例 如 , 痪 入 1, 计 算 机 会 
显示 输出 


X 王 1 Y 王 1 
再 运行 一 次 并 从 键盘 上 打 入 2, 计 算 机 会 显示 输出 
尺 一 2 Y 一 1. 41421356 
这 样 反复 运行 ,每 次 从 键盘 上 为 变量 x 输入 不 同 的 值 ， 
就 能 得 到 相应 的 计算 结果 。 
从 这 个 例题 可 以 看 到 ,用 INPUT 语句 为 变量 输入 数值 
时 ,一 个 程序 不 用 修改 就 能 够 对 不 同 数值 进行 计算 ,这 是 使 用 
INPUT 语句 时 的 一 个 方便 之 处 。 
如 果 在 INPUT 语句 中 安排 多 个 变量 ,每 两 个 变量 之 间 要 
用 逗号 隔 开 。 例 如 
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10 INPUT A,B.C 
为 了 能 告诉 人 们 这 次 要 求 融 入 的 是 哪 一 些 变量 ,有 多 少 
种 , 按 什么 样 的 顺序 等 问题 ,还 可 以 在 INPUT 语句 里 安排 一 
些 提 示 信 息 。 
例 2 “计算 C= WA 十 下 
程序 如 下 ; 
10 _ INPUT “AB 一 ”;A，B 
20 C==SQR(CA 大 A 十 B 大 B) 
30 PRINT “C 一 ”5;C 
40 END 
计算 机 运行 时 先 显示 出 : 
A，B 一 
然后 等 待 从 键盘 上 输入 具体 的 值 . 如 果 痪 入 
7,8<1 ( 数 之 间 用 逗号 隔 开 ) 
计算 机 就 会 按 顺 序 把 值 依次 赋 给 变量 A 和 B ,然后 再 往 
下 执行 程序 。 最 后 显示 出 计算 结果 
C=-10. 6301458 
例 3 下 面 是 一 个 “加 法 器 ?程序 ,该 程序 的 作用 是 将 键盘 
每 次 输入 的 数值 累加 。 这 个 程序 可 用 于 运动 会 的 计 分 或 商店 、 
银行 的 算 总 帐 。 程 序 如 下 : 
10 T=0 
20 INPUT “X 一 ”;X 
30  T 一 T 十 X 
40 PRINT T 
50 GOTO 20 
RUN 
X 一 12 -< ( 敲 入 ) 
12 (显示 ) 
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X=7 < ( 敲 入 ) 


X 一 
此 程序 执行 的 路 线 用 行 号 表示 是 10-20-~30-40-~50 一 
20->-.。.。 
需要 特别 注意 的 是 30 行 。 第 一 次 执行 30 行 时 ,赋值 号 右边 
的 工 当 前 值 是 0( 是 由 10 行 的 语句 赋 给 的 ),X 当前 值 是 12( 是 
由 键盘 输入 赋 给 X 的 ),30 行 语句 的 作用 是 :将 0CT 值 ) 和 12 
(X 值 ) 相 加 的 结果 12 赋 给 变量 T, 即 T 的 值 由 0 变 为 12。40 行 
输出 12 ,执行 50 行 就 转 到 20 行 ,计算 机 又 在 下 一 显示 行 显示 出 
“X 一 ”。 使 用 者 再 从 键盘 殴 入 一 个 X 值 7, 计 算 机 再 执行 30 行 
语句 ,就 会 把 12 十 7( 即 T 十 X) 的 值 赋 给 变量 T ,到 40 行 再 打 
印 时 就 不 应 打印 “12”., 而 是 “19”。 到 50 行 又 转 到 20 行 ,如 此 循 
环 反复 。 
若 需 要 累加 的 数值 输入 完毕 ,就 可 在 键盘 上 融入 CTRL- 
C 组 合 键 , 此 时 ,程序 就 暂停 执行 并 显示 出 暂停 信息 , 即 
BREAK IN 20 


意思 是 程序 在 20 行 被 中 断 。 
8$7.7 读数 语句 和 置 数 语句 


采用 置 数 语句 (DATA) 和 读数 语句 (READ), 可 以 把 要 处 
理 的 大 量 数据 放 在 程序 里 ,运行 时 让 计算 机 自动 读 取 。 

置 数 语句 的 格式 : ”DATA (数据 表 》 

读数 语句 的 格式 : READ (变量 表 》 

DATA 语句 的 作用 是 建立 一 个 数据 区 ,READ 语句 的 作 
用 是 从 数据 区 中 取出 数据 并 依次 赋 给 各 变量 。 
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例 1 计算 下 面 数 列 的 和 :4,31,52,101,87。 程 序 如 下 : 
10 READ A,B,C,D,E 
20 SS 王 A 十 B 十 C 十 D 十 E 
30 PRINT:.S 
40 DATA 4,31,52,101,87 
50 END 


10 Y==0 

20 ， READ 和 X 

30 ， YY 一 Y 十 又 

40 READ 和 

50 YY 二 YY 十 和 

60 PRINT Y 
70 DATA 4,5 
80 END 


8$7.8 条 件 语句 


计算 机 执行 程序 时 ,在 一 般 情 况 下 是 按 行 号 从 小 到 大 , 同 
一 程序 从 左 到 右 的 顺序 执行 各 个 语句 的 。 但 在 实际 问题 中 ,经 
常 有 这 样 的 情况 出 现 , 即 当 处 理 某 一 步骤 时 ,会 因 具 体 条 件 使 
以 后 的 步骤 形成 分 支 ,例如 ,到 市 场 买 苹果 ,苹果 的 价格 与 你 
买 的 多 少 有 关 , 如 果 你 买 50 公 斤 以 上 ,每 公斤 3 元 ,否则 每 公斤 
3: 2 元 。 

设 x 为 买 苹果 的 公斤 数 ,y 为 应 付 的 钱 数 ,我 们 不 难 写 出 
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计算 苹果 金额 的 公式 
四 3x x 之 50 
【3.2x x<<50 
从 公式 可 以 看 出 ,y 的 值 取 决 于 x 的 取 值 范围 ,也 可 以 说 
取决 于 某 种 条 件 (x 是 否 大 于 等 于 50) , 若 条 件 成 立 , 就 按 某 
一 公式 来 计算 ,否则 按 其 他 公式 计算 。 
计算 苹果 金额 的 程序 如 下 : 
10 “HOME ( 清 屏 语 句 ) 
20 INPUT “请 输入 苹果 的 公斤 数 ?”;X 
30 IF X>=50 THEN Y 一 3xX :GOTO 50 
40 YY 一 3.2 关 又 
50 PRINT “应 付 钱 数 为 **Y 交 元 


Y 


60 END 

RUN 

请 输入 苹果 的 公斤 数 ?45<+ 

应 付 钱 数 为 144 元 。 

RUN (再 次 运行 程序 ) 
请 输入 苹果 的 公斤 数 ?60*+ 


应 付 钱 数 为 180 元 
这 个 程序 30 行 为 条 件 语句 ,其 含意 为 : 当 条 件 X 之 50 
(“? 在 BASIC 中 写成 “之 一 ”成 立 , 则 执行 THEN 后 面 的 两 
个 语句 , 即 计算 Y 一 3x*X 后 转 到 50 行 ;如 蔷 杀 件 不 成 立 ( 即 X 
<50), 则 不 执行 THEN 后 面 的 语句 而 转 到 下 一 行 , 即 按 Y 一 
3.2x*X 来 计算 。 
条 件 语 句 的 一 般 格 式 为 ; 
IF 〈 条 件 》) THEN 《〈 语 名 》 
含意 是 :如 果 条 件 成 立 , 则 执行 THEN 后 面 的 语句 。 否 
则 , 按 顺序 往 下 执行 。 
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在 上 例 中 ,X> 王 50 就 是 条 件 , 其 中 "之 一” 称 为 关系 运算 
符 。 关 系 运算 符 有 下 列 几 种 ; 
一 (等 于 ) <( 小 于 ) 忆 = 一 (小 于 等 于 ) 
之 (大 于 ) = (大 于 等 于 ) ”<>> (不 等 于 ) 
例 ! ”从 键盘 输入 任意 两 个 数 , 然 后 按 大 小 顺序 显示 出 
来 。 程 序 框图 如 图 7.1 。 


程序 如 下 : 
10 JINPUT 和 和:B 
20 IF， A>B THEN PRINT A,B;, GOTO 40 
30 ”PRINT B.A 
40 END 
RUN 
? 2,4<! 
4 2 
在 程序 框图 中 , 芙 形 框 表 示 条 件 判 断 , 框 内 标明 判 洒 的 条 
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件 , 它 有 一 个 入 口 和 两 个 出 口 ,根据 判断 结果 选择 一 个 出 口 走 
向 。 每 个 出 口 要 标明 其 对 应 的 判别 结 果 ,Y《〈 或 “是 ”7 表示 条 件 
成 立 ,N (或 “和 否 ”) 表 示 条 件 不 成 立 ， 
例 2 ”任意 输入 三 个 数 , 求 出 其 中 最 大 值 。 
分 析 : 先 取得 三 个 改 7 采 用 键盘 输入 语句 INPUT ) ,并 分 
别 存 入 相应 的 三 个 变量 六. 中 , 拉 着 判别 A 是 否 大 于 B ， 
若 大 于 , 则 把 A 值 赋 给 M ( M 甲 来 保存 较 大 值 ); 若 不 大 于 ， 
则 把 B 值 赋 给 M , 故 M 中 的 数 是 两 个 已 经 比较 过 的 数 A 和 
3 中 之 较 大 者 。 后 面 要 做 的 事 , 就 是 比较 C 和 M 中 的 数 了 。 若 
C 大 于 M , 则 将 C 值 赋 给 M ; 若 不 大 于 , 则 不 必 赋 给 。 第 二 次 
比较 后 ,M 值 就 是 最 大 值 , 最 后 打印 出 M 值 。. 程 序 框图 如 图 
7:2. 
程序 胡 下 ， 
10 INPUT “输入 三 个 数 ? ”5A,B,C 
20 IE AHB THEN M:=A:GOTO 40 
30 M=:B 
40 IF C>M THEN M==C 
50 PRINT Mi; “为 最 大 值 ? 
60 END 
RUN 
输入 三 个 数 ? 一 9,8,7.5<1 
8 为 最 大 值 
例 3 ”设计 一 个 程序 ,计算 从 键盘 上 连续 融入 的 数据 的 平 
均 数 。 
分 析 :平均 数 等 于 和 数 除 以 个 数 ,为 此 设置 两 个 变量 S 
和 工 ,分 别 保存 累加 数 和 记录 输入 数据 的 个 数 。 每 输入 一 个 
数 ,把 这 个 数 加 到 变量 S 里 ,就 可 以 完成 累加 计算 ,同时 ,把 
变量 工 的 值 加 1, 又 可 以 记录 下 输入 了 多 少数 .为 了 结束 运行 ， 
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图 7. 2 
在 输入 数据 时 ,我们 设立 了 一 个 终止 标志 为 一 1, 当 程序 接收 
到 一 1 时 , 便 结 束 取 数 并 求 出 结果 。 
程序 框图 如 图 7. 3。 

程序 如 下 : 

10 S=0:I=0 

20 INPUT X 

30 IF X= 一 L THEN GOoTO 70 

40 S=S 十 X 

50 TI=I 二 1 
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60 
70 
80 
90 


RUN 
?5<1 


图 7. 3 


GOTO 20 

Y=S/I 

PRINT “平均 数 =”;Y 
END 


?10<:! 


*。117。 


?9<1! 
?一 1 
平均 数 一 8 


$7.9 循环 语句 


在 程序 设计 中 ,经 常 遇 到 一 些 按 一 定 规则 重复 执行 某 些 
运算 的 问题 。 例 如 打印 2 至 100 范 围 内 各 偶数 的 平方 , 它 重 复 执 
行 50 次 平方 运算 ,从 2 开始 ,每 次 增加 2, 直 至 100 为 止 . 对 于 这 、 
个 问题 ,可 以 采用 BASIC 语言 的 循环 语句 来 实现 。 编 写 的 程 
序 如 下 ; 

10 FOR I=-2 TO 100 STEP 2 
20 X 王 TIxI 

30 PRINT  X 

40 NEXT I 

50 “END 


10000 

在 这 个 程序 中 ,10 行为 FOR 循环 初始 语句 ,也 称 FOR 语 
句 ,其 中 2,100 及 2 称 为 循环 的 初 值 , 终 值 及 步 长 值 ,I 为 循环 
变量 (简称 循 变 ) .40 行 NEXT 是 循环 终端 语句 ,FOR 语句 和 
NEXT 语句 之 间 的 语句 ,要 被 重复 执行 ,叫做 循环 体 。 
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循环 语句 的 一 般 格 式 如 下 : 
FOR 〈 循 变 )=( 初 值 ) TO 〈( 终 值 〉 STEP 〈 步 长 
值 》 
《循环 体 》 
NEXT 〈 循 变 ) 
执行 过 程 为 : 先 保存 初 值 、 终 值 和 步 长 值 , 然 后 给 循 变 赋 
初 值 ,再 执行 循环 体 , 遇 到 NEXT 后 , 循 变 加 上 步 长 与 终 值 比 
较 , 若 大 于 终 值 , 则 循环 结束 , 若 小 于 终 值 ,继续 执行 循环 体 。 
例 1 求 S=1 十 2 十 3 十 … 十 8 
程序 如 下 : 
10 S=0 
20 FOR I=-l1 TO 8 STEP 1 
30 S=S 十 I 
40 NEXT I 
50 PRINT S 
60 END 
RUN 
36 
上 述 20 行 也 可 改写 成 
20 FOR I=l1 TO 8 
也 就 是 STEP 1 可 以 省 略 。 
例 2 求 C=1X2X3X…X8 
10 C=1 
20 FOR I=l1 TO 8 
30 C=C 类 I 
40 NEXT I 
50 PRINT C 
60 END 
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RUN 
40320 
30 行 语句 CCxI 起 着 累 乘 的 作用 ,在 累 乘 之 前 , 先 将 C 
置 1。 
例 3 求 十 个 数 ( 放 在 DATA 语句 里 ) 之 和 与 积 ,程序 如 
下 : 
10 _ S=0:C=1 
20 FOR ,I=-1 TO 10 (控制 做 十 次 ) 
30 READ X 
40 SS 一 S 十 X:C 一 CxX 
50 NEXT 1 
60 PRINT “S 一 ”;S,“C 一 ”5;C 
70 DATA 1.4,23,1.2,6,56,9,11,7,2,31 
80 END 
RUN 
S 一 147.6 C 一 557829297 
30 行 是 一 个 读 语 句 ,每 一 次 执行 这 个 语句 ( 即 每 经 过 一 
循环 ) ,计算 机 就 顺序 地 从 数 汪 区 中 读 出 一 个 数据 ,六 叫 它 赋 
给 变量 A 。 由 于 循环 10 次 ,所 以 共 读 出 10 个 数据 。 
例 4 用 100 元 买 100 只 14 鸡 , 母 鸡 3 元 1 只 41， 小 鸡 1 志 ,3 只 1，, 问 各 
买 多 少 只 。 
对 于 此 题 , 令 母 鸡 为 x 只 ,小 鸡 为 y 只 ,根据 题 意 可 知 ,y 
王 100 一 x。 开 始 先 让 x 初 值 为 1, 以 后 逐次 加 1, 求 x 为 何 值 
时 ,条 件 3x 十 y/3 王 100 成 立 。 
程序 如 下 ; 
10 FOR X=1 To 100 
20 Y 一 100 一 X 
30 A 一 3xX 十 Y/3 
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40 
50 
60 
70 
RUN 


IE "和 A 

PRINT 
NEXT 

END 


又 一 25 


例 5 ”演奏 我 国 国歌 .程序 如 下 : 


10 
20 
30 
40 
50 


60 


70 


80 


90 


FOR 
READ 
MUSIC 
NEXT 
DATA 


DATA 


DATA 


DATA 


DATA 


<<>> 100 THEN GOTO 60 
“X 一 ”3X，Y 一 ?23Y 
又 


Y 一 75 


I 王 1 TO 94 


X,Y 
XY 
工 
255,70,192,160,192,70,192,70,192,70,255， 
70,228,30,204,30,192,160,192,160,152,70， 
152,70, 192,70,172,30,152,30,128,160,128， 
160,152,110,152,30,192,110,152,30 
128, 110, 152, 30, 172, 160, 172, 160, 172, 160， 
114,160, 128, 160, 172, 160, 152, 160, 128, 70， 
152,160,128,70,152,70,172,30,152,30,192， 
160 
152,160,152,160,255,70,228,70,192,70,192， 
70, 152, 110, 152, 30, 128, 70, 128, 70, 172, 70， 
172,30,172,30,228,160,172,160,172,70,255， 
70,192,160,192,70,192,70 
152, 160, 152,70, 152, 70, 128, 160, 128, 160， 
128, 160, 128, 160,，192, 70, 152, 70,， 128, 70， 
128, 30, 128, 30, 114, 160, 128, 160, 152, 110， 
192,30,128,70,128,30,128,30 
152,160,192,160,255;160,192;160,152,110， 
192,30,128,70,128,30,128,30,152,160,192， 
160,255,160,192,160,255,160,192,160 
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100 DATA 255,160,192,160,192,160 
110 END 


项 入 RUN 命令 ,中华 学 习 机 就 唱 起 国歌 来 了 .中 华 学 习 
机 为 什么 能 够 唱歌 呢 ? 因 为 机 器 内 部 已 固化 了 音乐 控制 程序 ， 
只 要 用 户 按 歌曲 要 求 提供 一 系列 的 音阶 码 和 音 长 值 , 并 通过 
MUSIC 语句 来 调用 ,那么 学 习 机 就 会 唱 起 来 音阶 码 和 音 长 
值 的 计算 方法 如 下 : 


音阶 ;5 6 7 2 3 4 .56077172 3 4 52 


9 


X 值 :255 228 205 192 171 152 140 128 114 102 95 84 75 68 62 …- 

音 长 :4 拍 2 拍 ! 拍 1/2 拍 1X4 拍 1/8 拍 

Y 值 :255 160 110 70 30 11 

休止 符 0, 规 定 以 ! 或 2 表示 。 

其 他 音 长 的 立 值 可 以 参照 上 列 Y 值 酌 定 , 例 如 1 拍 半 ,可 
以 选 110 一 160 之 间 的 某 一 值 ,如 130 或 135。 

程序 中 ,DATA 语句 存放 了 国歌 歌谱 的 一 系列 音阶 和 音 
长 数据 , 供 运行 时 READ 语句 读 取 。 

读者 可 根据 上 述 方法 ,编写 出 演唱 其 他 歌谱 的 程序 。 


$7.10 数组 


在 上 一 节 中 ,我们 学 习 了 循环 语句 , 它 能 高 效 而 又 简洁 地 
解决 一 些 按 一 定 规则 重复 执行 某 些 运算 的 问题 。 例 如 , 求 10 个 
数 中 的 最 大 值 ,程序 如 下 : 

20 FOR I=1 TO 10 
30 PRINT “ 数 ";1“ 是 :”3 
40 INPUT 和 

50 JIF I=1 THEN M 一 和 A 
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60 JIF JI>1 AND A>M THEN M 一 和 A 
70 NEXT II 

80 PRINT “最 大 数 是 :”M 

90 END 

语 名 50 使 M 有 一 个 初 值 ,语句 60 总 使 M 取 已 输入 数 中 
的 最 大 数 。 

如 果 我 们 要 求 10 个 数 中 的 最 大 值 M ,并 要 知道 各 个 数 与 
M 之 差 ,那么 在 求 得 M 值 之 前 得 不 到 某 个 数 与 M 之 差 , 因 此 
必须 想 办 法 将 这 10 个 数 的 值 保 存 起 来 。 一 种 简单 的 方法 是 设 
置 10 个 变量 A0、A1、…… \A9, 因 此 程序 中 应 有 10 个 INPUT 
语句 ,相应 于 得 到 各 个 数 与 M 之 差 的 功能 也 要 10 个 语句 ,可 
见 程序 将 十 分 庞大 ,对 于 有 更 多 的 数 , 如 100 个 ,这 种 方法 更 不 
可 取 。 

另 一 种 方法 是 建立 一 个 有 10 个 变量 的 数组 B ,这 10 个 变 
量 是 B(1) 、.B(2)、…… \、BK10) ,这样 当 变 量 I 取 1 至 10 各 值 ,B 
(D 就 能 访问 所 有 这 10 个 变量 。 注 意 变量 AI 与 B(ID) 虽然 都 是 
变量 ,但 是 其 本 质 完全 不 同 . 如 变量 B(D , 当 I=1 时 B(GD) 访 
问 变量 B(1), 当 I= 王 2 时 B(D 访问 变量 B(2), 和 而 AI 只 是 一 
个 变量 , 它 与 Al 和 A2 等 变量 完全 不 同 。 

完成 这 一 功能 的 程序 如 下 : 

10 DIM B(10) 
20 FOR I=1 TO 10 
30 PRINT “ 数 ”;1 “是 : ”; 
40 INPUT B(D) 
50 IF IT=-1 THEN M:=B(OD) 
60 IF 1>1 AND BOD>M THEN M:==B(D 
70 NEXT I 
80“ PRINT “最 大 数 是 :”M 
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90 FOR I=1 TO 10 
100 PRINT “ 数 ”51 "与 最 大 数 之 盖 是 :” 
110 PRINT BCGD) 一 M 
120 NEXT II 
130 END 
这 样 的 程序 非常 紧凑 , 若 要 求 100 个 数 中 的 最 大 值 M ,并 
求 各 个 数 与 M 之 差 , 只 需 将 上 述 程序 中 数字 10 改 成 100。 
语句 10 定 义 了 有 10 个 变量 的 数组 B , 若 改 成 DIM B 
(100) 则 定义 了 有 :100 个 变量 的 数组 B。 在 变量 B(ID 中 ,B 是 
数组 变量 名 ,I 是 下 标 . 仅 有 一 个 下 标的 数组 变量 称 为 一 维 数 
组 ,有 二 个 下 标的 数组 变量 称 为 二 维 数组 , 依 此 类 扒 。 
二 维 数组 的 定义 形式 是 : 
DIM BCM,N) 
如 DIM A(10,10) 定义 了 10X 10 个 变量 ,用 双 下 标 变 
量 A(LJ) 能 访问 这 100 个 变量 。 二 维 数组 常用 于 和 矩阵 ,平面 图 
等 方面 。 
例 : 将 数字 1、2、…… \NxN 填 入 边 长 为 N 的 方 阵 中 , 满 
足 : 从 方 阵 的 左上 角 开 始 , 依 顺 时 针 方 向 按 螺旋 形状 将 1、2、 
0 \NxN 这 些 数字 顺 次 填 入 方 阵 中 。 
当 N 一 3 时 方 阵 如 下 : 


当 N=4 时 方 阵 如 下 : 
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程序 如 下 : 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
175 


180 
190 


INPUT “NIN 

IF N< 2 THEN 10 

DIM ACONN) ，DX(4) ,DY(4) 
FOR 1=1 To 1 

READ DX(D ,DY(D 

NEXT 1 

DATA 0,1,1,0,0, 一 1 一 1;0 
FOR TI-1 TO N 

FOR  J==1 TO N 

ACTJ)=-0 

NEXT 了 

NEXT II 

MNxN 

D=1:X=1:Y= 

FOR _ 11 TO M 
A(X,Y)=-1 
Xl1=X+DX(D):YI=Y+DY(D) 
IF X1<1OR XI>N OR YI1<1OR YI>N 
THEN 190 

IF ACXlYID=0 THEN 220 
D=D+l 
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200 IE D==5 THEN D=1 

210 XI==X 十 DXID) :YI 一 = 一 YY 十 DYID) 

220 六 一 X1 :YY=-YL 

230 NEXT T 

240 FOR TI-=]1 TO N 

250 FOR JJ=1 TO N 

260 PRINT AI) 

270 NEXT 了 

280 PRINT 

290 NEXT II 

300 END 

程序 中 数组 恋 最 DX 和 DY 表示 四 个 方向 的 走 问 引起 下 
标 变 虹 X 和 钥 工 的 变化 量 , 这 四 个 方向 依次 是 右 、 下、 左 和 上 上， 
代表 须 时 侍 的 走 法 .在 取 值 上 ,因为 向 布 走 使 变量 Y 加 1] 恋 
筷 X 不 变 , 即 从 格子 (1.J) 向 右 走 将 到 达 格 子 (TD 这 
样 DX(C1) 应 取 值 0,DY(i) 应 肾 全 1。 其 它 方向 同 理 ， 
由 于 没有 第 5 个 方向 ,因此 第 4 个 方向 的 下 一 方向 应 十 第 

一 个 方向 (语句 200) . 洛 条 180 判 断 下 一 点 是 否 已 经 填 有 数字 ， 
车 还 未 填 数 则 填 上 ,否则 换 下 -一 个 方向 ,这 样 就 能 控制 顺 时 针 
的 螺旋 形 走向 。 


第 八 章 ”BASIC 趣味 程序 设计 


在 这 一 章 中 ,我 们 将 通过 几 个 有 趣 的 例子 来 说 明 计算 机 
编程 的 丰富 多 彩 的 技巧 .必须 强调 的 是 :在 当今 计算 机 技术 飞 
速 发 展 的 时 代 , 最 基本 的 程序 加 上 简单 的 思想 可 以 演变 为 功 
能 复杂 的 程序 。 

因此 ,我们 从 最 基本 的 程序 开始 ,逐步 改进 程序 ,并 适当 
引入 一 些 当前 计算 机 发 展 的 前 沿 技术 与 思想 。 


$ 8.1 猜 数 游戏 


相信 许多 人 都 玩 过 猜 数 游戏 ,所 谓 猜 数 游戏 就 是 让 某 一 
个 人 A 心理 默 想 一 个 数 , 由 另 一 个 人 B 来 猜 ,每 次 猜 后 ,A 告 
诉 B 所 猜 的 数 是 : 太 小 .相同 或 太 大 .B 则 根据 这 些 提示 ,以 尽 
量 少 的 次 数 猜 中 A 所 想 的 数 。 

如 果 将 A 的 工作 交 给 计算 机 ,我 们 自己 扮演 B 的 角色 ， 
那么 应 该 怎样 编 这 个 程序 呢 ? 

在 编写 程序 之 前 ,我 们 先 来 想 想 计算 机 应 完成 什么 工作 。 

第 一 步 : 它 必须 “ 想 ”一 个 数 x。 

第 二 步 :接受 我 们 猜 的 数 a。 

第 三 步 :将 x 与 a 作 比 较 : 

”如果 a>x, 则 打印 “你 猜 的 数 太 大 。”， 
如 果 a<x, 则 打印 “你 猜 的 数 太 小 。”# 
如 果 a=x, 则 打印 “你 猜 得 很 对 !” 
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第 四 步 :如 果 还 未 猜 中 , 则 继续 接受 我 们 猜 的 数 , 即 继续 
”第 二 步 的 工作 。 
这 样 ,我 们 就 明确 了 计算 机 应 该 做 的 事 了 .将 解 题 的 每 一 
步 描 述 清楚 便 确 定 了 计算 机 程序 设计 的 思路 , 它 的 作用 如 同 
建筑 一 幢 楼 房 , 要 先 设计 图 纸 一 样 重要 。 
现在 ,让 我 们 看 看 怎样 将 这 些 步骤 “翻译 ”成 计算 机 的 语 


II 引 


第 1 步 :“ 想 ”一 个 数 x ,最 简单 的 作法 是 : 
LET  x 一 32 
其 中 32 是 随便 给 的 一 个 数 。 

但 是 ,一 旦 被 猜 者 看 了 这 个 语句 ,那么 他 根本 不 用 猜 。 所 
以 ,应 设法 使 x 具有 随机 性 .我 们 利用 BASIC 语言 中 的 一 个 
随机 函数 RND。 

RND(1) 能 产生 0 一 0.99…9 之 中 某 个 小 数 。 
但 我 们 需要 产生 的 数 是 整数 ,并 不 妨 假定 在 0 一 99 之 中 。 
因此 必须 将 在 0 一 0. 99…9 变化 的 小 数 转变 到 整数 0 一 99 中 。 
将 RND(1) 乘 以 100 ,得 到 0 一 99. 9…9 范围 的 数 。 但 这 还 
不 是 整数 ,我 们 再 利用 BASIC 语言 中 的 到 整 函数 INT。 由 定 
义 ,INT(x) 得 到 的 是 所 有 小 于 或 等 于 x 的 整数 中 最 大 的 一 
个 。 
如 'INT(3.6) 一 3 
INT(3)=3 
INT( 一 3.6) 王 一 4 ”因为 小 于 一 346 的 整数 有 一 4、 
一 5:…… 而 (一 4) 在 这 些 数 中 最 
大 。 
所 以 ,如 果 用 下 面 方式 给 出 猜 数 : 
X 一 IJNT (RND《1) 类 100) 


。128。 


则 任何 人 都 猜 不 着 计算 机 给 的 数 是 什么 。 注 意 ,如 果 不 小 
心 写成 ， 
x 一 INTC(RND(1))x 100 
则 x 永远 取 值 0! 为 什么 ? 
第 2 步 :接受 我 们 猜 的 数 a ,最 简单 的 是 : 
INPUT“ 你 猜 什么 ?:”; A 
第 3 步 : 这 一 步 可 直接 用 IF 语句 完成 : 
IF A>X THEN PRINT 
“你 猜 的 数 大 大 了 。?” 
IF A<X THEN PRINT 
“你 猜 的 数 太 小 了 。?” 
IF A 一 X_ THEN PRINT 
“你 猜 得 很 对 1? 
第 4 步 :IF A< >>X THEN GOTO 第 2 步 
最 后 ,经 过 整理 ,我 们 得 到 下 面 的 程序 : 
10 X=INTCRND(1)*x 100) 
20 INPUT “你 猜 什么 ?:”3;A 
30 下 A>>X THEN PRINT 


“你 猜 的 数 太 大 了 。” 
40 IF A<X THEN PRINT 
“你 猜 的 数 太 小 了 。” 
50 IF A 一 X THEN PRINT 
“你 猜 得 很 对 1” 
60 IF A< >X THEN 20 
70 END 
(程序 8. 1) 
运行 例子 : 


] RUN<: 
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你 猜 什么 ?:20<+: 
你 猜 的 数 太 小 了 。 
你 猜 什 么 ?:30<+! 
你 猜 的 数 太 大 了 。 
你 猜 什么 ?:25<-! 
你 猜 得 很 对 ! 
] 
好 ,请 暂停 往 下 看 , 先 想 想 当 初 你 是 否 以 为 这 样 聪 明 的 程 
序 需 要 一 大 堆 复 杂 的 程序 语句 来 完成 ? 
这 个 程序 是 否 使 你 感到 设计 一 个 程序 是 一 件 多 么 有 趣 的 
事 ? 是 的 ,但 它 仅 是 我 们 进入 缤纷 的 计算 机 世界 的 一 个 “ 序 
幕 ”。 下 面 将 有 更 多 的 编程 “杂技 ?和 精彩 的 演示 。 
先 提 一 个 问题 ,上 面 的 程序 是 否 很 完善 呢 ?例如 , 当 我 们 
将 数 猜 对 后 , 想 知 道 共 猜 了 多 少 次 ,该 怎么 办 呢 ? 要 解决 这 个 
问题 需 增加 一 个 变量 来 存 贮 所 狂 到 的 次 数 。 设 它 是 变量 T ,在 
接受 输入 a 值 后 ,T 值 增 加 1, 并 在 最 后 打印 T 值 .这 要 增加 两 
个 语句 。 
25 _T=T 十 1 
65 ”PRINT “你 总 共 猜 了 ?5Ti 次 。 
这 样 修改 后 ,程序 是 否 安全 呢 ? 在 第 一 次 做 T=T 十 1 时 ， 
T 第 一 次 值 是 多 少 呢 ? 因 此 ,要 给 T 赋 初 值 。 
忘记 给 变量 赋 初 值 , 常 是 造成 程序 出 错 的 一 个 原因 。 
最 后 ,得 到 猜 数 的 程序 ; 
5 T 一 0 
10 X-=-INTCORND(1)x 100) 
20 INPUT “你 猜 什么 ?:”;A 
25 T 一 T 二 1 
30 IF A>X THEN PRINT 
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“你 猜 的 数 太 大 了 。?” 
40 IF A<X THEN PRINT 
“你 猜 的 数 太 小 了 。?” 
50 IF A 一 X _ THEN PRINT 
“你 猜 得 很 对 !? 
60 IF A< >X THEN 20 
65 ”PRINT “你 总 共 猜 了 ”5Ti“ 次 ” 
70 “END 
(程序 8. 2) 

我 们 对 这 个 程序 还 不 满意 ,希望 在 正确 猜 完 一 次 后 ,由 计 
算 机 询问 是 否 再 猜 一 次 ,我 们 还 想 玩 时 , 则 回答 Yes (或 其 它 
约定 值 ), 继 续 猜 另 一 个 新 数 。 要 使 程序 有 这 个 功能 该 怎么 办 
呢 ? 请 你 想 一 想 ,并 动手 写 出 程序 。 

下 面 , 我 们 从 本 质 上 修改 这 个 程序 ,使 它 更 加 智能 化 。 为 
了 实现 这 个 功能 ,我 们 须 决 定 在 什么 情况 下 是 “小 一 点 ”在 什 
么 情况 下 是 “ 太 小 了 ”。 如 果 约 定 当 a<x 一 10 时 是 “ 太 小 了 ”， 
而 当 x 一 10 委 a<<x 时 是 “小 一 点 ”, 则 未 免 有 点 死板 ,没有 智能 
感 。 想 一 想 ,10 这 个 数 是 否 每 次 都 不 变 呢 ? 合 理 的 方案 应 该 是 
将 10 作 合理 的 浮动 。 

我 们 再 一 次 利用 随机 函数 RND 实现 这 一 功能 .这 须 在 
程序 8. 2 的 基础 上 ,增加 两 个 控制 “智能 ”的 变量 H 和 LL ,分 
别 取 值 : 

H 王 10 十 (INTCORND(1)x9) 一 1) 
工 王 10 十 (INTCORND(1)x9) 一 1) 
这 样 ,H 和 L 的 值 在 6 一 14 之 间 浮 动 。 
我 们 得 到 以 下 程序 : 
5 T 一 0 | 
10 X=INTCRNB(1)*x 100) 
昌 Tt31 昌 


15 _ H=10 十 (INTCRND(1) x.9) 一 4) 
L 一 10 十 (INTCRND(1) 9 一 4) 
20 INPUT “你 猜 什么 ?:”5 和 A 
25 _T 一 T 十 1 
30 IF A>X 二 H THEN PRINT 
“你 猜 的 数 太 大 了 ?” 
40 IF A>X AND A< 一 X 二 H THEN PRINT 
“你 猜 的 数 已 较 接近 但 大 了 一 点 。? 
50 IF A<X--L _ THEN PRINT 
“你 猜 的 被 太 小 了 ? 
60 IF A<X AND A> 一 X 一 L THEN PRINT 
“你 猜 的 数 已 较 接近 但 小 了 一 点 。” 
70 IF A 一 X_ THEN PRINT 
“你 猜 得 很 对 !?” 
80 IF A< >X THEN 15 
90 PRINT “你 总 共 猜 了 ”Ti 次” 
100 END 
(程序 8. 3) 
运行 实例 : 
] RUN-< 
你 猜 什 么 ? :50<4 
你 猜 的 数 太 大 了 
你 猜 什 么 ?:20-4 
你 猜 的 数 已 较 接近 但 小 了 一 点 。 
你 猜 什么 ?:23<+! 
你 猜 的 数 已 较 接近 但 大 了 一 点 。 
你 猜 什 么 ?:21<+ 
你 猜 得 很 对 ! 
] 
在 语句 60 中 ,逻辑 连接 词 “AND ”表示 “ 且 ”. 还 有 逻辑 连 
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接 词 “OR” 和 ”NOT” ,分别 表示 ”或 ?和 “和 否 ”。 像 在 四 则 运算 中 ， 
乘除 的 优先 级 比 加 减 高 ,逻辑 连接 词 也 有 优先 级 ,NOT 最 高 ， 
AND 次 之 ,OR 最 低 。 例 如 

(1)A<X_ AND A>> 一 X 一 L 表示 条 件 A<<X 和 和 
> 一 X 一 L 要 同时 成 立 。 

(2)A>0 AND A<=5 当 和 的 值 为 2 时 , 它 使 两 个 
条 件 都 成 立 , 因 此 A 使 整个 表达 式 ( 条 件 ) 为 真 。 但 
是 , 当 A 取 值 7 时 , 它 使 A 之 0 成 立 , 而 A<< 王 5 不 成 
立 , 故 A 使 整个 条 件 为 假 。 

(3) A>5 OR A<0 当 A 的 值 是 2 时 , 它 使 两 个 条 件 
都 成 立 , 因 此 A 使 整个 表达 式 为 真 . 但 是 , 当 A 的 值 
是 7 时 , 它 使 A 之 5 成 立 , 故 整个 表达 式 为 真 。 

如 果 还 想 增 加 难度 ,如 当 计 算 机 发 现 你 猜 的 数 不 对 时 ,让 

它 修改 随机 数 x 的 值 ,例如 变 成 x 一 1 或 x 十 1 〈 见 下 面 的 实 
例 ) 。 
] RUN< 
(假设 产生 的 随机 数 x 王 21) 
你 猜 什么 :?20<: 
接近 但 小 了 一 点 。 
(x 变 成 20) 
你 猜 什么 :?22< 
接近 但 大 了 一 点 。 
(x 不 变 , 仍 为 20) 
你 猜 什么 :? 21< 
接近 但 大 了 一 点 。 
(x 变 成 21) 
你 猜 什么 :? 20< 
接近 但 小 了 一 点 。 
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(x 恋 成 20) 
你 猜 什 么 :? 20~+ 
你 猜 得 很 对 ! 
] 
你 还 可 以 发 挥 丰富 的 想像 力 ,使 这 一 简单 的 游戏 更 加 有 
趣 , 更 富有 挑战 性 。 


$ 8.2 教学 与 训练 


许多 人 只 知道 计算 机 可 以 玩 游 戏 ,其 实 计算 机 还 出 色 地 .- 
担任 教学 的 任务 , 像 一 位 认真 .耐心 而 又 和 疡 的 教师 ,是 辅助 
教学 的 好 工具 。 这 一 节 , 我 们 将 从 最 简单 的 四 则 运算 教学 程序 
出 发 ,介绍 怎样 利用 计算 机 来 进行 教学 ,并 将 引入 程序 设计 中 
一 个 重要 概念 一 一 子 程序 。 
若 我 们 希望 设计 这 样 一 个 教学 程序 , 它 给 出 一 个 仅 含 两 
个 数 的 加 或 减 的 算式 ,要 求 受 训 者 输入 运算 结果 ,由 计算 机 判 
断 它 是 否 正确 。 例 如 , 当 计 算 机 给 出 式 子 (3 一 5) 时 ,如 果 受 训 
者 输入 2, 则 计算 机 输出 “你 答 错 了 。 请 再 猜 一 次 。”*; 如 果 受 训 
者 输入 (一 2》, 则 计算 机 输出 “答对 了 。” 
通过 仔细 分 析 ,可 以 得 到 以 下 几 个 设计 步骤 : 
1) 随 机 产生 两 个 数 ,并 随机 选择 加 运算 还 是 减 运 
2) 输 出 显示) 算式。 
3) 等 待 受训 练 者 输入 。 
4) 判 断 输入 是 否 正确 。 如 果 错 误 , 则 屏幕 显示 答 错 信息 ， 
并 转 到 步骤 2) 等 待 受训 者 继 继 输 入 ;如 果 正 确 , 则 屏 
幕 显示 答对 信息 ,并 转 入 步 又 5)。 
5) 询 问 受 训 者 是 否 继续 做 练习 。 若 继续 , 则 转 到 步骤 1; 
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否则 ,此 教学 程序 结束 。 

在 上 一 节 中 ,我们 已 介绍 了 随机 产生 两 个 数 的 方法 。 但 
是 ,怎样 随机 选择 加 运算 还 是 减 运 算 呢 ? 想 一 想 ,我 们 还 是 利 
用 随机 函数 RND 来 鲜 决 。 可 是 函数 RND 的 计算 结果 是 数 ， 
它 是 0 一 0.99…9 之 中 二 个 数 ,怎样 由 这 个 数 来 决定 是 做 
加 运算 而 不 是 减 运算 呢 ? 

一 个 简单 的 方法 如 下 :我们 用 0 表示 加 运算 ,用 1 表示 减 
运算 。 这 样 , 只 要 利用 RND 随机 函数 来 产生 整数 0 或 1, 就 可 
以 实现 随机 选择 加 或 减 运算 。 回 想 一 下 ,产生 0 一 99 之 中 某 
个 数 (包括 0 和 99) 的 算式 是 : 

INT (RND(1) 类 100) 

很 明显 ,注意 到 上 式 中 100 是 由 要 产生 的 最 大 数 99 加 1 
得 到 的 ,现在 要 产生 的 最 大 的 数 是 1, 因 此 INTCRND(1) 关 2). 
将 产生 整数 0 或 1。 

当然 ,你 也 可 以 用 0 表示 减 运 算 , 用 1 表示 加 运算 ,但 这 
是 无 关 重 要 的 。 进 一步 ,你 也 可 以 产生 92 之 中 的 整数 ,使 0 
和 1 表示 加 运算 ,? 表示 减 运算 。 但 是 ,产生 加 运算 的 可 能 性 
是 三 分 之 二 ,而 产生 减 运算 的 可 能 性 是 三 分 之 一 。 如 果 你 的 目 
的 就 是 这 样 , 那 也 无 可 非议 。 

我 们 得 到 一 个 初步 的 程序 : 

步骤 1， 10 A-==-INTCORND (1)x100); 

BJNTCRND(1i) 类 100) 
20 SINTCORND(1) 大 2) 
3 IP SS: 一 0 THEN ANSWER==A 十 B 
40 JPF S=1 THEN ANSWER:-=A 一 B 

步 又 2: 50 执行 “输出 (显示 ) 算 式 ” 任 务 

步骤 3:，，60 (INPUT C 

步骤 4:，70 IE (0 全 ANSWER THEN PRINT 
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“很 可 惜 ! 你 答 错 了 。 请 再 运算 一 次 。”， 
GOTO 50 

80 IF CANSWER THEN PRINT 
“你 很 聪明 ,答对 了 。? 

步骤 5:， 90 PRNIT : PRNIT “还 相 再 做 吗 ?”; 

100， INPUT “YIN” 尽 

110 IFS$=“Y”ORK S$ 一 “y” THEN 10 

120 END 

细心 的 读者 会 发 现 上 述 程序 中 行 号 为 50 的 语句 是 一 句 
中 文 语句 中 ,不 是 一 条 BASIC 的 合法 语句 。 是 的 ,因为 在 编写 
上 面 程序 中 ,还 没 想 好 怎样 记 计 算 机 做 这 件 事情 (如 还 没 决定 
显示 的 在 屏幕 中 的 格式 等 ), 因 此 ,我 们 用 一 条 说 明 性 语句 表 
示 这 项 任务 , 它 的 进一步 分 解 留待 下 面 说 明 。 

我 们 使 用 的 这 种 方法 ,就 是 程序 设计 过 程 中 的 自 上 向 下 
的 方法 。 它 要 求 我 们 在 编写 程序 时 , 先 根据 问题 的 性 质 和 特 
点 ,分 解 出 几 个 步骤 ,然后 阶段 细 化 ,直到 最 后 写成 程序 代码 。 

现在 ,我 们 来 考虑 “输出 显示) 算式? 这 件 事 是 怎样 用 程 
序 语 言 来 实现 。 

步骤 1: 根 据 S 是 0 或 1 分 别 产生 符号 “十 ?或 “一 ”。 

步骤 2: 输 出 数值 A.B 和 运算 符号 。 

步 又 3: 处 理 结束 工作 。 

将 它 翻 译 成 BASIC 语言 ,就 是 ， 

1000 JIF S=0 THEN A$ 一 “十 ?” 
1010 IF S=1 THEN  A 有 书 ==“ 一 ” 
1020 PRINT Ai ”3 A 和 2 了 Bi 一 
1030 RETURN 
而 “执行 ?输出 (显示 ) 算 式 “ 任 务 ” 这 条 册 明 语句 就 是 ， 
50 GOSUB 1000 
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为 了 以 后 阅读 方便 ,我 们 在 (GOSUB 1000) 后 需要 说 明 
从 行 号 10000 任务 是 什么 (特别 是 有 多 个 任务 时 )。BASIC 语 
言 提 供 了 这 样 一 条 说 明 ( 注 释 ) 性 的 命令 叫做 REM。 在 同一 行 
号 的 语句 中 ,所 有 位 于 REM 之 后 的 内 容 都 是 注释 内 容 , 即 使 
注释 内 容 含 有 BASIC 的 合法 命令 , 它 也 不 被 执行 。 如 语句 
REM PRNIT “A? 在 处 理 时 ,计算 机 并 执行 REM 后 的 
PRINT 语句 。 请 比较 下 面 两 个 程序 和 运算 结 

程序 :1 10 PRINT “A? 

20 PRINT “火炎 炎 ? 
30 END 


程序 2， 10 REM PRINT “A2 
20 PRINT “ 炎 火 火 了 
30 END 
运行 结果 : 
] RUN 
火 火 火 
] 
由 此 看 出 ,语句 50 可 写成 : 
50 GOSUB 1000:REM 显示 算式 
这 样 ,我 们 得 到 了 加 减法 的 辅助 教学 程序 : 
10 A 王 INTCORND(1) 大 100) ， 
B 王 INTCORND(1)x 100) 
20 S=INTCORND(1)x* 2) 
30 IF S==0 THEN ANSWER 一 A 十 B 
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40 IF S=1 THEN ANSWER 一 A 一 B 

50 GOSUB 1000:REM 显示 算式 

60 INPUT C 

70 IF C< >>ANSWER THEN PRINT 
“很 可 惜 ! 你 答 错 了 。 请 再 运算 一 次 ”: 


GOTO 50 
80 IF C= 一 ANSWFR THEN PRINT “你 很 聪明 ,答对 
下 和 


90 PRINT : PRINT “还 想 作 ?”; 
100 INPUT “YIN”;Sf 
110 JP SS Y” OR S 有 = 一 “y” THEN 10 
120 END 
1000 IF S=0 THEN  A 和 一 “十 ” 
1010 下 S=1 THEN A$=“ 一 ? 
1020 PRINT Ai ”WA 有 六 ”Bi 一 
1030 RETURN 
(程序 8. 4) 

请 记 住 , 在 任务 的 执行 体 ( 语 句 1000 一 1030) 中 ,最 后 一 
条 语句 一 定 是 “任务 结束 ” 即 语句 RETURN 。 想 一 想 , 如 果 没 
有 语句 1030, 情 况 会 怎样 呢 ? 

当 计 算 机 执行 到 语句 50 时 , 遇 到 GOSUB 1000, 那 么 它 
知道 有 一 个 任务 从 语句 1000 开始 , 它 先 执行 类 似 于 GOTO 
诸 名 的 功能 , 转 到 语句 1000 执行 ,一 直到 语句 1020。 如 果 有 
语句 1030 ,那么 计算 机 知道 任务 已 完成 , 它 将 返回 到 调用 这 
个 任务 的 GOSUB 语句 之 后 第 一 个 语句 执行 (注意 ,不 是 返回 
执行 SOSUB 语句 ,否则 这 个 任务 又 将 执行 一 次 )。 如 果 删 去 
语句 1030 ,那么 计算 机 找 不 到 行 号 大 于 1020 的 语句 , 它 认 为 
程序 已 结果 ,计算 机 便 停止 工作 ,这 样 就 不 能 完成 程序 原来 的 
功能 。 
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作为 尝试 ,请 上 机 试 试 以 下 两 种 改动 对 程序 功能 的 影响 。 
情况 1: 将 语句 ,1030 删 去 。 
情况 2: 将 语句 .50 改 为 GOTO 1000。 
我 们 已 讨论 了 情况 1。 对 于 情况 .2, 当 计算 机 遇 到 语句 50 
后 , 转 到 语句 1000 执行 (注意 ,此 时 计算 机 并 没有 记 住 GoTO 
的 位 置 ,即行 号 50; 这 与 GOSUB 语句 不 同 , 它 记 住 ,GOSU 语 
句 的 位 样 当 计 算 机 遇 到 RETURN 语句 时 , 它 能 返回 到 GO- 
SUB 语句 之 后 继续 执行 )。 当 计算 机 遇 到 语句 1030 的 RE- 
TURN 时 , 它 因 找 不 到 返回 点 ,而 认为 程序 编写 错误 , 故 停 机 
结束 并 输出 错误 信息 。 所 以 按 情况 1 和 情况 2 编写 的 程序 是 
错误 的 。 
有 些 聪明 的 读者 ,还 会 发 现 如 果 将 语句 50 和 语句 1030 
分 别 改 为 ; 
50 GOTO 1000 
1030 GOTO 60 
程序 仍 能 正确 执行 ,功能 与 改动 前 一 样 , 但 这 样 做 是 不 安 
全 的 。 例 如 ,不 妨 将 程序 8. 4 的 语句 50 和 ,60 改 成 
50 GOSUB 1000:INPUT C 
60 REM 
很 显然 ,程序 的 功能 完全 不 变 。 可 是 ,如 果 还 是 按 上 述 方 
法 改 , 即 将 程序 8. 4 的 语句 50.60 和 1030 作 如 下 改动 ; 
50 GOTO 1000: INPUT C 
60 REM 
1030 GOTO 60 
显然 ,语句 INPUT C 将 不 再 执行 ,程序 的 功能 己 完 全 不 
同 了 这 是 .GOTO 语句 和 GOSUB 语句 的 一 个 重要 区 别 。 
现在 ,我 们 在 这 个 简单 教学 程序 的 基础 上 ,将 它 修改 得 更 
灵活 ,使 它 成 为 辅导 我 们 学 习 的 好 老师 。 
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我 们 希望 两 个 随机 数 A\B 不 局 限 在 0 一 99 之 间 , 而 希望 
在 特定 的 范围 MIN 一 MAX 之 间 , 即 MIN 秋 A,B 和 MAX。 例 
如 ,要 求 A,B 在 100 一 200 范围 内 , 则 只 要 将 程序 8. 4 中 语句 
10 改动 一 下 ,并 增加 语句 5，* 即 : 

5 _ MIN 王 100;MAX 一 200 
10 XN 王 MAX 一 MIN 十 1: 
A 一 INTCORND(1)x*xXN) 十 MIN : 
B 一 INT(RND(1) x XN) 十 MIN 

如 果 不 明 白 .XN 算式 中 为 什么 要 加 1, 只 要 将 MIN 代 以 
值 0,MAX 代 以 值 99, 即 希望 产生 0 一 99 之 间 的 数 。 根 据 程 
序 8.1, 此 时 XN 值 应 是 100, 所 以 上 述 XN 算式 中 中 要 加 1。 

另 一 方面 ,因为 INTCRND(1) xXN) 产生 0 一 XN 一 1 之 
间 某 一 个 整数 (包括 0 和 XN 一 1) ,那么 这 个 数 加 上 MIN 之 
后 ,其 范围 就 是 MIN~XN 一 1 十 MIN, 即 MIN~*MAX。 

我 们 发 现 ,程序 8.4 每 次 显示 的 算式 是 标准 的 算术 式 
子 , 如 果 我 们 希望 显示 的 内 容 是 应 用 题 , 怎 么 办 呢 ? 

很 显明 ,只 要 修改 “显示 算式 ”任务 (语句 1000 一 1030)， 
而 不 需 修 改 主 程序 (对 应 于 主 程序 ,我 们 将 “显示 算式 ”任务 称 
为 子 程序 , 它 执 行 完 后 要 返回 到 主 程序 中 )。 

经 过 分 析 ,这 个 新 的 “显示 算式 ”任务 应 是 ; 

步 又 1: 若 S$=0 则 执行 “显示 加 的 应 用 题 ” 任 务 。 

步骤 2: 若 S=1 则 执行 “显示 减 的 应 用 题 " 任 务 。 

步骤 3: “显示 应 用 题 " 任 务 的 返回 处 理 。 

这 样 交 显示 应 用 题 ? 任 务 ( 即 新 的 《显示 算式 ”任务 ) 分 解 
两 个 子 任 务 。 这 种 在 任务 中 还 调用 其 它 任务 的 现象 , 称 为 馈 

而 “显示 加 的 应 用 题 ” 任 务 是 显示 一 道 应 用 题 ( 内 容 可 根 
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据 训 练 目 的 选择 ,甚至 可 利用 RND 随机 函数 从 几 个 题目 中 
随机 选 出 其 中 一 条 )。“ 显 示 减 的 应 用 题 ” 任 务 也 类 同 。 
我 们 选 下 面 两 道 应 用 题 作 为 练习 。 
(1) 小 明 今天 去 买书 ,用 了 A 元 , 买 笔 等 学 习 用 具 , 用 了 
B 元 。 问 小 明 今天 共用 了 多 少 元 ? 
(2) 小 明 共 有 A 本 书 , 借 给 问 学 B 本 书 。 问 小 明 还 剩 多 少 
本 书 ? 
只 要 将 程序 8. 4 修改 成 以 下 程序 .8. 5, 便 可 实现 我 们 硕 . 
望 得 到 的 解 上 面 两 个 应 用 题 的 功能 。 
5 MIN 王 100:MAX 一 200 
10 'XN 王 MAX 一 MIN 十 1， 
A 一 INT(ORND(1) x XN) 十 MIN， 
B 一 INTCRND(1) x XN) 十 MIN 
20 S=INTCORND(1)x2) 
30 IF S=0 THEN ANSWER 一 A 十 B 
40 IF S=1 THEN ANSWER 一 和 一 B 
50 GOSUB 1000:REM 显示 算式 
60 INPUT C 
70 IF C< 方 ANSWER THEN PRINT 
“很 可 惜 ! 你 答 错 了 。 请 再 运算 一 次 。”: 
GOTO ”50 
80 IF C=ANSWER THEN PRINT 
“你 很 聪明 ,答对 了 。” 
90 PRINT:PRINT “还 想 再 做 吗 ?”; 
100 _ INPUT “YIN2?;S$ 
110 IF S 和 =“Y”OR S$=“y” THEN 10 
120 END 
1000 下 .S=-0. THEN GOSUB 1100 
1010 IF，S=1 THEN GOSUB 1200 
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1020 RETURN 
1100”，PRINT “小 明 今天 去 买书 ,用 了 ?”; 
Ai ?元 ; 
1110 PRINT “ 买 笔 等 学 习 用 具 , 用 了 ”; 
Bi” ”元 。 
1120 PRINT “ 问 小 明 今天 共用 了 多 少 元 ?” 
1130 RETURN 
1200 PRINT “小 明 共有 ”Ai” 本 书 , 借 给 同学 ;Bi” 本 书 ” 
1210 ”PRINT “ 问 小 明 还 剩 多 少 本 书 ?”; 
1220 RETURN 
(程序 8. 5) 
需要 强调 的 是 ,RETURN 语句 返回 到 调用 此 任务 的 语句 
GOSUB 后 面 第 一 条 语句 。 因 此 ,语句 1130 返 到 1010 继续 执 
行 ,而 不 是 返回 到 语句 60 执行 ;语句 1020 才 返 回 到 语句 60 
继续 执行 。 
执行 程序 8. 5 后 ,会 发 现 这 样 一 个 问题 :只 有 当 答 对 后 才 
能 退出 程序 ,并且 不 能 进行 评分 。 为 此 ,我们 在 程序 中 再 增加 
两 个 功能 ， 
1) 若 连续 答 错 `3 次 , 则 直接 显示 答案 。 
2) 总 共 做 10 题 , 最 后 进行 评分 。 
经 过 分 析 ,分 解 成 如 下 几 个 步骤 : 
步 邓 1: 变 量 初始 化 。 
步骤 2: 产 生 两 个 随机 数 , 随 机 选择 加 或 减 运算 。 
步 又 3: 显 示 算 式 。 
步骤 4: 等 竺 回答。 
步骤 5: 判 断 是 否 答对 。 若 对 , 则 显示 答对 的 信息 ,并 转 到 
步骤 9; 若 答 错 , 则 显示 答 错 的 信息 。 
步 双 6: 是 否 已 连续 答 错 3 次 , 若 不 是 , 则 转 到 步 又 3。 
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步骤 7:( 已 连续 答 错 了 3 次 ) 显 示 答 案 。 
步骤 8: 转 到 步骤 10。 
步骤 9: 记 录 答 对 题 数 的 变量 加 1。 
步骤 10: 是 否 已 做 了 10 道 题 。 若 不 是 , 则 转 到 步骤 2。 
步骤 11: 计 算 并 显示 成 绩 。 
明白 了 这 些 步骤 之 后 ,我们 得 到 程序 8. 6 : 
5 _MIN=100:MAX 二 200;R=0 
10 FOR I=-1 TO 10 
20，XN=MAX 一 MIN 十 1 
30 A=-INTCRND(1)xXN) 十 MIN， 
B 王 INTCRND(1) x XN) 十 MIN 
40 S=-INT(RND(1)x 2) 
50 FE S=0 THEN .ANSWER 一 A 十 B 
60 IF S=1 THEN ANSWER 一 A 一 B 
70 FOR' T=1'TO 3 
80 .GOSUB .1000:REM 显示 算式 
90 INPUT < 
100 IF C=ANSWER THEN PRINT “你 很 聪明 ,答对 
了 。”:GOTO 170 
110 严 C< >ANSWER THEN PRINT “很 可 惜 ! 你 答 
错 了 。 请 再 运算 一 次 。” 
120 NEXT T 
130 PRINT “正确 答案 是 :? 
140， GOSUB 1000:REM 显示 算式 
150 PRINT ANSWER 
160 GOTO 180 
170，R=R 二 1 
180 NEXT 1 
190 .PRINT 
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200 PRINT “你 基 做 了 10 题 ,做 对 了 “;Ri? 题 。 成 绩 是 ”; 
及 火 10; 分 ” 
210 END 
1000 IF S=0 .THEN 和 A$ 一 “十 ” 
1010 IF S==1 THEN A 和 一 “一 ” 
1020 PRINT Ai ”3A 和 235Bi 一 ”3 
1030 RETURN 
(程序 8.6) 

在 上 面 程 序 中 ,值得 注意 的 是 :任务 “显示 算式 ”先后 共 被 
调用 两 次 。 第 一 次 发 生 在 语句 80, 第 二 次 发 生 在 语句 140。 我 
们 知道 ,语句 RETURN 飞 任务 返回 处 理 ) 返 回 到 调用 此 任务 的 
GOSUB 语句 之 后 第 一 个 语句 。 因 此 ,第 一 次 执行 到 语句 1030 
时 ,RETURN 返回 到 语句 90 继续 执行 :第 二 次 执行 到 语句 
1030 时 ,RETURN 返回 到 语句 150 继续 执行 。 

可 见 , 简 单 地 用 GOTO 语句 代替 GOSUB 语句 ,并 不 能 实 
现 上 述 功能 。 这 是 GOTO 语句 和 GOSUB 语句 的 重大 区 别 。 使 
用 GOSUB 语句 还 可 以 简化 书写 程序 ,这 一 点 从 程序 8.6 可 
明显 看 出 , 若 不 用 GOSUB i， 句 ,语句 1000 一 1020 和 失 |j 笃 受 
书写 两 次 ( 见 程序 8.7)。 如 果 执 行 这 个 任务 很 复杂 , 重 写 儿 次 
的 工作 量 将 非常 大 。 

另外 ,程序 8.6 还 有 下 列 几 点 值得 思考 : 

1) 语 句 160 不 能 省 略 ,否则 当做 错 后 ,记录 答对 题 数 的 变 
量 也 加 1, 致 使 最 后 显示 的 成 绩 总 是 100 分 ! 由 此 看 出 ,对 程 
序 中 的 转移 语句 要 十 分 仔细 对 待 。 

2) 语 句 5 中 R=0 这 条 语句 虽然 在 中 华 机 中 可 以 省 去 ， 
因为 BASIC 规定 程序 开始 执行 时 所 有 变量 (显然 包括 变量 R 
) 都 是 0。 但 是 ,如 果 这 是 一 个 被 其 它 主 程序 调用 的 任务 ,而 在 
那个 主 程序 中 又 使 用 了 变量 R ,那么 进入 此 任务 时 ,R 的 值 
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可 能 不 是 0， 


所 以 最 后 显示 的 成 绩 有 可 能 是 -990 分 ! 


因为 变量 R 的 值 在 程序 中 的 变化 是 自身 的 值 ( 旧 值 ) 加 
上 某 个 数 得 到 的 , 即 语句 170, 这 样 的 变量 称 为 累加 器 。 这 说 


明 累 加 器 在 使 用 要 清 0。 

5 _ MIN=100:MAX 一 200:R 一 0 

10 FOR I=1 To 10 

20 XN 王 MAX 一 MIN 十 1 

30 A 一 INTCIRND(C1) 类 XN) 十 MIN : 
B=-INTCORND(1) *x XN) 十 MIN 

40 S=INTCORND(C1)*2) 

50 IF S==0 THEN ANSWER 王 A 十 B 

60 IF S=1 THEN ANSWER 一 A 一 B 

70 FOR T==1 TO 3 

80 IF S=0 THEN AJ$ 二 “十 ” 

82 IF S=1 THEN A 和 -= 一 ” 

84 PRINT Ai WA 和 Bi 一 2 

00 INPUT 《C 

100 IFC:==ANSWER THEN PRINT “你 很 娶 明 ,答对 
0 
GOTO 170 

110 IFC< >>ANSWER THEN PRINT “很 可 香 ! 你 答 错 
了 。 请 再 运算 一 次 。 

120 NEXT T 

130 PRINT “正确 答案 是 :” 

140 JE _ S=0、THEN，AV$ 一 “十 ” 

142 JIF S=1 THEN 'A 和 一 “一 ” 

144 PRINT Ai 23A 和 3， 95B 和 一 2 

150 PRINT ANSWER 

160 GOTO 180 
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170 
180 
190 
200 


210 


R 一 R 十 1 
NEXT II 
PRINT 
PRINT“ 你 共 做 了 10 题 , 做 对 了 “;Ri 大 。 
成 绩 是 ”;Rx* 10 和 分 ” 
END 
(程序 8. 7) 


作为 练习 ,请 将 此 数学 程序 修改 成 能 训练 加 \ 减 , 乘 、 除 四 
则 运算 。 并 适当 修改 ANSWER 的 计算 方法 ,再 修改 “显示 算 
式 ” 任 务 。 但 是 , 当 运 算 选 择 了 ( 除 运算 ) 时 要 非常 小 心 ,这 时 分 
母 可 能 是 0 ,答案 也 不 一 定 是 整数 。 

我 们 写 出 这 个 四 则 运算 的 教学 程序 ,请 读者 认真 分 析 这 
个 程序 的 正确 性 。 通 过 分 析 ,将 大 大 提高 你 的 程序 设计 能 力 。 
你 将 清楚 ,如 何 把 一 个 复杂 问题 作 分 析 ,将 它 分 解 为 若干 简单 
的 子 问题 。 读 者 还 要 有 耐心 将 一 个 简单 的 程序 变 成 一 个 多 功 


能 的 程序 。 


5 MIN 王 100:MAX 王 200:R=0 


10 
20 
30 


40 
50 
55 
60 
65 
66 
67 
70 
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FOR I=1 TO 10 

XN 王 MAX 一 MIN 十 1 

A 一 INTCORND(1)xXN) 十 MIN 

B 王 INTCORND(1) xXN) 十 MIN 
S=INTCORND(1)x4) 

IF S==0 THEN ANSWER 王 A 十 B:GOTO 70 
IF S=1 THEN ANSWER 王 A 一 B:GOTO 70 
IF S=2 THEN ANSWER 王 AxB:GOTO 70 
IF B=0 THEN 3 

IF INTIA/B)*B< >A THEN 30 
ANSWER 一 A/B 

FOR T==1 TO 3 


80 GOSUB 1000:REM 显示 算式 


90 INPUT C 

100 IF C=ANSWER THEN PRINT “你 很 聪明 ,答对 
了 
GOTO 170 


110 IF C< >ANSWER THEN PRINT “很 可 惜 ! 你 答 
错 了 。 请 再 运算 一 次 。? 
120 NEXT T 
130 PRINT “正确 答案 是 :” 
140 GOSUB 1000:REM 显示 算式 
150 PRINT ANSWER. 
160 GOTO 180 
170 R 王 R 十 1 
180 NEXT I 
190 PRINT 
200 PRINT “你 共 做 了 10 题 , 做 对 了 “;R;" 题 。 成 绩 是 ”; 
RXx 10; 分” 
210 END 
1000 IF S==0 THEN A 和 $ 一 “十 ?” 
1010 IF S=1 THEN A 和 $ 一 “一 
1020 IF S=2 THEN 和 A 岂 一“ 类?” 
1030 IF S=3 THEN A$ 一 “/” 
1040 PRINT Ai ”A$3< Bi“ 一 9 
1050 RETURN 
(程序 8.8 ) 


8.3 计算 机 辅助 解 题 


在 上 一 节 中 ,我 们 介绍 了 计算 机 在 教学 中 的 应 用 ,其 做 法 
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是 由 计算 机 产生 题目 ,要 求 受 训 者 进行 计算 并 将 计算 机 产生 
结果 告诉 计算 机 ,让 计算 机 判断 是 否 正确 ,最 后 还 进行 评分 工 
作 。 反 过 来 ,计算 机 也 能 扮演 受训 者 的 角色 ,但 我 们 的 目的 不 
是 训练 计算 机 ,而 是 希望 它 能 帮助 我 们 解答 某 类 题目 我 们 通 
常 使 用 的 计算 机 器 就 是 帮助 我 们 进行 运算 ,但 它 的 辅助 功能 
比 计算 机 简单 得 多 。 
在 这 一 节 中 ,我 们 从 计算 机 解决 有 关 速 度 计算 的 简单 问 
题 开 始 ,引入 当今 程序 设计 的 一 项 重要 技术 一 菜单 技术 。 
问题 :在 公式 
距离 王 速度 X 时 间 
中 ,已 知 其 中 两 个 量 , 让 计算 机 求 出 第 三 个 量 .为 了 运算 方便 ， 
我 们 假定 这 三 个 量 均 要 大 于 0。 
经 过 分 析 ,将 它 写 成 
步骤 1: 输 入 其 中 两 个 量 。 
步骤 2: 合 法 性 判断 。 若 输入 合法 , 则 转 到 步骤 4。 
步骤 3: 显 示 非 法 信息 , 转 到 步骤 1。 
步骤 4: 计 算 第 三 个 量 。 
步骤 5: 显 示 结 果 。 
在 步骤 中 ,我们 只 说 明了 “输入 其 中 两 个 量 ”, 并 没有 涉及 
到 怎样 输入 三 个 量 中 的 两 个 量 。 根 据 题 意 ,三 个 量 不 能 是 负 
值 ,因此 我 们 在 输入 时 ,可 以 要 求 用 户 ( 使 用 者 三 个 量 都 要 输 
入 ,但 以 负 值 表示 待 求 的 量 。 所 以 这 三 个 量 中 ,有 且 仅 有 一 个 
是 负 值 , 其 余 两 个 是 正 值 。 若 不 满足 这 个 条 件 ,表明 输入 不 合 
法 。 
这 样 ,我 们 将 流程 细 化 成 : 
步骤 1: 输 入 三 个 量 。 
步骤 2: 若 三 个 量 中 仅 有 一 个 是 小 于 或 等 于 零 , 则 合法 ， 
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转 到 步骤 4。 
步骤 3: 显 示 非 法 信息 , 转 到 步骤 1。 
步骤 4: 计 算 所 求 的 量 。 
步 又 5: 显 示 结 果 。 
据 此 ,我们 得 到 程序 8. 9 如 下 : 
10 HOME 
20 ”PRINT “速度 .距离 .时 间 辅 助 解 题 软件 ” 
30 ”PRINT “请 输入 各 值 (以 一 =0 的 数 表示 待 求 量 ) :?” 
40 INPUT “速度 一 ”V 
50 INPUT “距离 一 ”;S 
60 _ INPUT “时间 一 2T 
70 REM 合法 性 检查 
80 X=0 
90 IF V<<= 王 0 THEN  X 王 X 十 1 
100 IF S<<=0 THEN X 王 X 十 1 
110 IF T<=0 THEN X 一 X 十 1 
120 IF X=0 THEN PRINT 
“至 少 要 有 一 个 求 量 ” 
130 IF X=1 THEN 200 
140 IFE X>=2 THEN PRINT 
“不 能 多 于 一 个 待 求 量 
150 PRINT 
160 GOTO 30 
199 REM 计算 
200 IF Vv< =0 THEN V=S/T:PRINT “速度 = 距离 / 
时 间 王 ”SS /5T 玉 一 ”5V 
210 IF S 一 =0 THEN S=v/T;PRINT “速度 一 距离 x 
时 间 一 ”V 玉 类 ” 工 六 一 ”5S 
220 IF T< =0 THEN T=S/T:PRINT “时 间距 离 / 速 
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度 一 ”5Si /5V 玉 一 ”下 
230 PRINT 
240 END 
(程序 8. 9) 

我 们 还 会 发 现在 程序 8. 9 中 ,用 非 正 数 表示 待 求 量 , 显 得 
很 别扭 ,也 感到 不 太 方便 。 

在 饭馆 用 餐 , 服 务 员 会 拿 出 一 本 菜单 让 你 点 菜 。 通 过 这 份 
菜单 ,你 能 清楚 地 知道 有 什么 菜 式 ,能 方便 地 选 出 喜欢 的 菜 
谱 。 从 这 件 事 情 中 我 们 得 到 启发 ,如 果 将 计算 机 比喻 成 服务 
员 , 让 它 在 屏幕 中 输出 一 份 菜单 ,由 你 选 出 所 需 的 功能 ,再 让 
计算 机 完成 这 项 任务 。 这 样 一 来 ,我 们 事先 不 必 有 什么 限制 
(约定 ), 看 看 菜单 便 能 点 菜 。 

在 这 个 新 思想 的 启发 下 ,将 上 述 问题 描述 成 : 

步 又 1: 菜 单 显示 。 

步骤 2: 等 待 输入 。 

步骤 3: 根 据 选择 ,分 别 执行 各 项 对 应 任务 。 

”显然 ,计算 机 应 完成 三 项 任务 , 即 求 速度 距离. 时间, 我 
们 分 别 将 这 三 项 任务 分 解 为 三 个 不 同 的 子 程序 去 完成 。 
为 了 使 屏幕 更 整齐 ,需要 介绍 GET 命令 , 它 与 INPUT 傅 
令 极 相似 ,它们 之 间 的 差异 请 运行 下 面 的 程序 便 能 知道 。 

5 By$ 一 “不 能 负 值 或 零 !” 

10 HOME 

-20 PRINT “ 痰 火 火 火 火 火 火 火炎 了 

30 PRINT “xx 1. 求 速度 大 ” 

40 PRINT “类 2. 求 距离 类” 

50 PRINT “x 3. 求 时 间 类 ?” 

55 PRINT “xx 4. 结束 火 交 

60 PRINT “类 火 火 兴 痰 火 火 火 火 ? 
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70 
80 
90 
100 


110 
120 
130 
140 
150 
199 
200 
210 


220 
230 


240 
250 


260 
299 
300 
310 


320 
330 


340 
350 


PRINT 
PRINT “请 选择 (1 一 4) :?; 

GET Al 

IF A$< >“1” AND A 和 < >“2” AND 


A 和 $< >“3” AND A$<< >“4” THEN 90 
IF A 和 $=“1” THEN GOSUB 200 

IF A 和 $ 一 “2” THEN GOSUB 300 

IF A$=“3” THEN GOSUB 400 

IF A$< >“42 THEN GET Ad 和 $:GOTO 10 
END 

REM 求 速度 

INPUT “上 距离 一 ”;S 

IF S< =0 THEN PRINT “距离 ”; 

B$: GOTO 200 

INPUT “时 间 王 ”;T 

IF T< =0 THEN PRINT “时 间 ”; 

B$: GOTO 220 


V==S/ 人 T 

PRINT “速度 = 距离 /时 间 一 ”Si 1/ 
T 六 一 ”5V 

RETURN 

REM 求 距离 

INPUT “速度 一 ”3V 

IF V< =0 THEN PRINT “速度 ” 


B$: GOTO 300 

INPUT “时 间 王 ”T 

IF T< =0 THEN PRINT “时 间 交 
B$: GOTO 320 

S 一 VxT 

PRINT “距离 一 速度 大 时 间 一 ”3V 和 大? 


Ti 一 ”;S 
360 RETURN 
399 REM 求 时 间 
400 INPUT “距离 一 ”3;S 
410 IF S< =0 THEN PRINT “距离 ”; 
B$ :GOTO 400 
420 INPUT “速度 一 ”;V 
430 IF V< =0 THEN PRINT “速度 ”，; 
B$: GOTO 420 
440 T 一 S/V 
450 ”PRINT “时 间 == 距 离 /速度 一 ”Si“/” 
Vi “一 ”5T 
460 RETURN 
(程序 8. 10) 
回想 一 下 上 一 节 中 最 后 一 个 题目 是 四 则 运算 的 教学 程 
序 , 其 中 选择 哪 一 种 运算 符号 完全 由 随机 数 决定 。 当 然 , 也 可 
以 应 用 菜单 技术 , 列 出 四 项 任务 ,分 别 对 应 加 \ 减 , 乘 、 除 四 种 
运算 式 子 。 作 为 练习 ,请 读者 自己 完成 。 


$ 8.4 图 形 设 计 


在 计算 机 作 图 中 , 线 和 点 组 成 图 形 ,点 组 成 线 ,因此 任何 
图 形 都 由 点 组 成 。 所 以 在 作 图 中 ,我 们 要 知道 的 是 用 什么 方法 
表示 屏幕 中 某 一 点 。 只 有 这 样 ,我 们 才能 告诉 计算 机 在 哪里 画 
点 ,将 一 串 点 组 成 我 们 需要 的 图 形 。 

在 中 华 机 中 ,屏幕 被 分 成 一 个 网 络 ,每 个 格 代表 一 点 ,每 
点 有 自己 的 号 码 。 类 似 于 电影 院 的 座位 ,每 个 格 用 行 号 L 和 
列 号 C 来 表示 , 记 为 (C,L)。 左 上 和 角 的 行 号 是 0、 列 号 也 是 0， 
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它 称 为 原点 , 记 为 (0,0)。 它 右 边 第 一 个 点 是 (1,0) ,接着 依次 
是 (2,0),(3,0)，…… 。 原 点 的 正 下 方 第 一 个 点 是 (0,1) ,接着 
依次 是 (0,2),(0,3)，…… 5 

为 了 满足 不 同 显 示 器 的 需要 ,中 华 学 习 机 有 两 种 作 图 状 
态 , 低 分 辨 率 和 高 分 辨 率 作 图 状态 。 在 低 分 辩 率 作 图 下 共有 
40X40 个 点 ;在 高 分 辩 率 作 图 下 共有 280X 160 个 点 ,左上 角 
的 点 是 (0,0) ,右上 角 的 点 是 (279,0) ,而 右 下 角 的 点 是 (279， 
159) 。 

1. 低 分 辩 率 作 图 

在 以 前 几 节 中 ,PRINT 语句 把 打印 的 内 容 输出 到 文本 方 
式 的 屏幕 ,而 作 图 中 的 点 要 输出 到 图 形 方 式 的 屏幕 ,因此 需要 
方式 转换 命令 , 它 由 GR 和 TEXT 命令 完成 。GR 使 屏幕 转换 
到 低 分 辩 率 作 图 方式 ;TEXT 使 屏幕 转换 到 文本 显示 方式 。 

另外 ,在 低 分 辩 率 作 图 方式 下 ,每 一 个 点 有 16 种 颜色 ( 假 
设 你 的 显示 器 是 彩色 的 或 接 在 彩色 电视 机 上 )。 所 用 的 命令 是 
COLOR=n'n 值 与 颜色 的 对 应 关系 如 下 所 示 


n 值 颜色 n 值 颜色 
0 黑 1 红 
2 深蓝 3 紫 
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14 绿 蓝 15 白 


另外 还 有 三 条 画 点 , 画 线 的 命令 : 

(1) PLOT C,L 

功能 是 在 (C,L) 的 位 置 上 画 一 个 点 。 但 是 怎样 才能 抹 去 
屏幕 中 某 点 (C,L) 呢 。 方 法 是 先 设 颜 色 为 0, 即 COLOR 王 0。 接 
着 ,发 出 命令 PLOT C,L 将 点 (C,L) 画 为 颜色 0, 对 应 黑色 ， 
这 在 效果 上 相当 于 抹 去 点 (C,L) 。 

(2) HLIN Cl,C2 AT LEL 

在 行 工 中 ,从 列 cl1 到 C2 画 一 直线 。 

(3) VLIN EL1,L2 AT C 

在 列 C 中 ,从 行 L1 到 L2 画 一 直线 。 

注意 ,在 低 分 辩 率 作 图 方式 下 ,没有 提供 画 斜 线 的 命令 ， 
因为 低 分 辩 作 图 方式 中 的 线 太 粗 了 。 若 要 画 斜 线 , 需 要 用 编程 
来 实现 。 

下 面 给 出 画 一 个 三 角形 假设 三 个 顶点 分 别 是 (10,20)、 
(30,20) 20,10) 的 程序 ,阅读 时 请 注意 三 角形 中 两 条 斜 边 的 
画 法 : 

10 GR:COLOR 一 2 

30 HLIN 10,30 AT 20 
40 FOR I=-10 TO 20 

50  PLOT  I,30 一 I 

60 NEXT 工 

70 FOR I==20 TO 30 

80 PLOT II 一 10 

90 NEXT I 

95 GET A$ :TEXT ， HOME 
100 END 
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请 再 观察 下 面 程序 画 出 什么 图 形 : 


10 
20 


GR 
COLOR 一 2 
HLIN 0,39 
VLIN 0,39 
HLIN 39,0 
VLIN 39,0 
COLOR 王 9 


PLOT 19,19 


GET A$ 


100 TEXT 

110 HOME 

120 “END 

如 果 我 们 希望 在 屏幕 中 央 画 一 个 矩形 ,并 使 它 的 颜色 不 
断 变化 ,可 以 用 下 面 的 程序 来 实现 。 


10 
20 


GR 


COLOR 王 INTCIRND(1)x15) 十 1 


HLIN 10,39 
VLIN 10,29 
HLIN 29,10 
VLIN 29,10 
GOTO 20 


AT 
AT 
人 AT 
AT 


10 ， 
29 


这 个 程序 将 不 断 改变 抢 形 的 颜色 ,如 要 使 它 中 断 工 作 , 则 
请 按 ctrL-c( 操 作 时 , 先 按 下 ctrl 键 且 不 松 开 它 ,并 紧 接 着 按 下 
ec 键 )。 并 在 命令 行 状态 下 输入 TEXT , 按 下 回 车 键 
CRETURN) 返 回 到 文本 状态 ,再 输入 HOME 及 回 车 ,清除 屏 


幕 。 


在 结束 本 小 节 之 前 ,让 我 们 再 编 一 个 程序 .这 个 程序 在 屏 
幕 中 不 断 画 出 颜色 不 同 且 相互 嵌 套 的 矩形 。 
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10 GR 

20 FOR I=0 TO 39 

30 COLOR 王 INTCRND)(C1)x15) 十 1 
40 HLIN II,39 一 LI AT I 

50 VLIN TI,39 一 LI AT 39 一 I 


60 HLIN 39 一 DI AT 39 一 I 
70 VLIN 39-LI AT 1 
80 NEXT 1 
90 GoTO 20 
2 高 分 辩 率 作 图 


与 低 分 辩 率 作 图 相同 ,高 分 辩 率 作 图 方式 有 状态 转换 命 
令 HGR , 它 使 屏幕 转换 成 高 分 辨 率 作 图 方式 。 每 点 颜色 由 
HCOLOR 一 n 给 出 ,对 应 关系 如 下 : 
n 值 颜色 n 值 颜色 
0 黑 1 绿 
2 蓝 3 白 1 
4 黑 2 5 红 
6 黄 7 白 2 
虽然 高 分 辨 率 作 图 方式 下 点 的 可 选择 颜色 少 ,但 是 它 提 
供 了 一 个 不 但 可 画 斜 线 的 强 有 力 的 画 点 . 画 线 命令 HPLOT。 


它 有 四 种 形式 

(1) HPLOT C,L 

与 PLOT 相似 , 它 在 (C,L) 画 一 点 。 

C 值 范围 是 0 一 279,L 值 范围 是 0 一 159。 
(2) HPLOT TO CL 

从 上 一 次 画 的 点 到 点 (C,L) 画 一 直线 。 
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(3) HPLOT Cl1,LI1 TO C2,L2 

从 点 (C1,L1) 到 点 (C2,L2) 画 一 直线 。 

(4) HPLOT Cl1,LIL TO C2,L2 TO 

从 点 (C1,LI) 到 点 (C2,L2) ,到 …… 画 一 条 折线 。 


8$ 8.5 趣味 程序 集 


在 这 一 节 中 ,我们 编 集 了 一 些 趣 味 程序 。 我 们 希望 这 些 程 
序 能 启迪 读者 ,提高 对 计算 机 的 兴趣 。 
1. 因子 分 解 
计算 机 是 做 因子 分 解 的 高 手 , 一 个 很 大 的 数 , 它 都 能 在 很 
短 时 间 内 将 它 分 解 成 因子 之 积 。 先 看 运行 过 程 : 
] RUN-! 
NUMBER 60- 
60==(2”2)(43)(5) (2` 2 表示 22) 
NUMBER :459<1 
459-=(3”3)(17) 
NUMBER : 一 1992<! 
一 1992 一 一 (2” 3)(3)(83) 
NUMBER :0<-! 
] 
答 入 0 可 结束 程序 的 运行 。 
程序 如 下 : 
10 INPUT “NUMBER2” :”;5N 
20 IF N=0 THEN 170 
30 PRINT Ni 一 ”5 
40 IF N<0 THEN PRINT “一 号 : 
王 革 
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50 IF N==1 THEN PRINT “(1)”， 


GOTO 10 
60 FOR I=2 TO SQRCN) 
70 E=0 


80 IF N/I< >INTCON/AD) THEN 110 

90 下 =E 十 1:N 王 N/I 

100 GOTO 80 

110 下 E=1 THEN PRINT “(”; LI) 2 

120 IF 忆 >1 THEN PRINT “(”; TI 2 

E5 “72 

130 NEXT 工 

140 IF N>1 THEN PRINT “(”; NI )2; 

150 PRINT 

160 GOTO 10 

170 END 
语句 60 中 SQRCN) 得 到 N 的 算术 平方 根 。 
2.， 巧 填 数 字 
在 下 面 的 三 角形 中 ,有 六 个 圆圈 。 请 将 1~…6 不 重复 地 十 

到 这 六 个 圆圈 中 ,使 每 边 三 个 圆圈 中 的 数字 之 和 都 相等 。 
以 六 个 数字 在 三 角形 中 的 顺 时 针 排 列 作为 结果 输出 ,其 
中 第 一 个 数字 应 填 在 三 角形 最 顶 的 圆 中 。 如 342615。 

一 个 最 简单 的 做 法 是 穷 举 所 有 可 能 , 见 下 面 程序 : 

10 FOR A==1 TO 6 

20 FOR B==1 TO 6 

30 IF A 王 B THEN 160 

40 FOR C==1 TO 6 

50 IF A=C OR B==C THEN 150 

60 FOR D-=1 To 6 

70 IF A=D OR B==D OR C==D THEN 140 
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80 FOR E==1 TO 1 
90 IF A=E OR B=-E OR C=E OR D: 
THEN 130 
100 F 王 21 一 人 A 人 一 B 一 C 一 D 一 王 
110 IF A 十 B< >D 二 E OR C 二 D< >>F 十 A 
OR E 二 FE< >B 二 C THEN 130 
120 PRINT A;BirC;D;E;EF 
130 NEXT 下 
140 NEXT 
150 NEXT 
160 NEXT 
170 NEXT 
180 END 
这 个 程序 运行 了 相当 长 的 时 间 后 得 到 许多 组 排列 ,这 些 
排列 都 可 以 经 过 旋转 得 到 下 面 三 组 数 之 一 :342615、523614、 
615342。 
能 否 减少 运行 时 间 呢 ? 能 ,请 看 下 面 分 析 。 


| 
问 


> 由 上 5 
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三 角形 三 边 要 满足 等 式 ， 
4 十 B 十 CC 一 C 十 D 十 玉 一 甩 十 P 十 4 
4 十 万 一 站 十 形 
即 : 人 2 5， 
进而 有 : 


忆 十 了 一 4 十 B 
人 有 一 4 一 C 

又 因为 忆 十 妨 十 下 一 21 一 (4 十 B 十 C) 

解 得 : 

一 21 一 4 一 28 一 2C 
了 一 24 十 3B 十 2C 一 21 
一 21 一 24 一 28 一 C 

因此 第 一 种 方法 使 用 了 五 重 循环 (要 做 6 次 ), 可 降 为 三 
重 循环 (6: 次 ) 。 

注意 到 一 组 解 (o,b,c,d,e,f) 在 三 角形 中 经 过 一 次 顺 时 
针 变 换 得 到 (f,o,bc,d,e) 仍 是 解 . 这 是 因为 由 Ce,bycydyeyy) 
是 解 得 到 : 

4 十 8 十 cc 一 c 十 4 十 e 一 e 十 了 十 ao 

经 变形 得 到 ， 

了 十 oa 十 e 一 e 十 c 十 4 

2 十 c 十 ae 一 aa 十 e 十 了 

dd 十 e 十 c 一 c 十 ea 十 

从 而 有 :: 

了 十 oa 十 2 一 2 十 c 十 

2 十 c 十 4 一 4 十 e 十 了 

dz 十 e 十 了 = 了 十 十 2 
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故 (Cf,a,pcydye) 也 是 解 。 
所 以 ,不 妨 令 A=1。 这 样 又 减少 了 一 循环 ,得 到 下 面 程 
序 : 


10 A 一 1 

20 FOR B=2 TO 1 

30 FOR C=2 TO 1 

40 IF B==C THEN 120 

50 D 王 20 一 2 类 B 一 2 大 C 

60 E 王 3 大 B 十 2 大 C 一 19 

70 下 一 19 一 2 类 B 一 C 

80 IF D<2 OR D>6 OR .E<2 OR 
E>6 OR F<2 OR F>>6 THEN 120 

90 IF D=B OR D=C OR E=B OR 
E=-C OR E=D THEN 120 

100 IF 1 十 B<< >D 二 E OR C 二 D< 二 F 十 1 
OR E 二 F< >B 二 C THEN 120 

110 PRINT AsB;C;D;E;F 

120 NEXT C 

130 NEXT B 

140 END 


3. 今天 星期 几 
本 节 将 介绍 一 个 可 计算 某 一 天 是 是 期 几 的 程序 。 
运行 例子 ， 


] RUN-4 
Year 一 1992< 
Month 一 3<! 
Day 一 6< 


It ii Friday. 


] 
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程序 如 下 : 


10 
20 
30 
40 
50 
60 
70 


-80 
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90 

100 
110 
120 
130 


140 


150 
155 
160 
170 
180 
210 
220 
230 
240 
250 
260 
270 


INPUT “Year 一 ”;Y 
IF Y<0 THEN 10 
INPUT “Month 一 汪 M 
IF M<=0 THEN 30 
INPUT “Day 一 ”2;D 

IF D<<=0 THEN 50 
A 一 D 

IF M=1 THEN 130 
FOR I=-1 TO M--1 
READ 

A 一 A 十 X 

NEXT II 

IF  Y/4=INT(Y/14) 
A 一 A 十 1 


AND  M>> 一 3 


THEN 


B 一 A 十 Y 一 1 十 INT(C(CY 一 1)/4) 一 INTCCY 一 1)/100) 


十 INTCY 一 1)/400) 
A 一 B 一 INT(B/7)x*7 
PRINT “It is ”; 


IF A 王 0 THEN PRINT 
IF A 王 1 THEN PRINT 
IF A 一 2 THEN PRINT 
IF A 一 3 THEN PRINT 
IF A 一 4 THEN PRINT 
IF A 一 5 THEN PRINT 
IF A 一 6 THEN PRINT 
PRINT “.?? 

END 


“Sunday?”; 
“Monday”; 
“Tuesday”; 
“Wednesday”; 
“Thursday”; 
“Friday”; 
“Saturday”; 


DATA 31,28,31,30,31,30,31,31,30,31,30,31 


4. 抓 疑犯 

某 市 发 生 了 一 件 案 件 , 公 安 局 对 A.B`C`D、E 名 疑犯 进 
行 分 析 ,得 到 

(1) A 不 可 能 单独 作案 ; 

(2) 若 B 和 C 参与 作案 , 则 D 一 定 参加 ; 

(3) A 和 C 不 可 能 同时 作案 ; 

(4) 若 A 和 D 两 人 中 至 少 有 一 人 作案 , 则 E 一 定 没 参 


(5) C 和 王 要 么 同时 参与 ,要 么 同时 没 参与 作案 ; 
(6) A 和 D 至 少 有 一 人 参加 ,但 不 能 同时 参加 ; 
(7)B D 和 王 至 少 有 二 人 参加 。 

请 借助 计算 机 为 公安 局 找 出 这 伙 案 犯 。 

程序 为 : 


10 
20 
30 
40 
50 
60 


70 


80 
90 
100 
110 
120 
130 


FOR A==0 TO 1 
FOR B=0 TO 1 
FOR C=0 TO 1 
FOR D=0 To 1 
FOR E=0 TO 1 


IF A=1 AND (B=0 AND C==0 
AND D=0 AND E=0) THEN 200 


IF B=1 AND C=-1 AND D=(0 


THEN 200 

IF A 十 C 王 2 THEN 200 

IF A 十 D>0 AND E=1 THEN 200 
IF C 十 E= 王 1 THEN 200 

IF A 二 D< >1 THEN 200 

IF B 十 D 十 E<2 THEN 200 

PRINT “May be:”; 
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140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


IF 和 A 
了 


王 严 严 一 严 


C 
IF D 
IF 瑟 
PRINT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
END 


| 


运行 结果 


] RUN- 


呈 


May be :BD 


] 


5. 智 打 魔鬼 


在 一 个 荒 无 人 烟 的 孤岛 上 ,有 一 群 (十 个 ) 魔 鬼 。 你 身边 有 
一 支 降魔 棒 , 当 你 用 这 支 棒 击 打 某 只 魔鬼 时 , 它 就 改变 生命 状 
态 (如 原来 是 活 的 ,那么 现在 就 死 了 ;如 果 原 来 是 死 的 ,那么 现 
在 就 活 了 ) ,但 此 时 有 可 能 另 一 只 魔鬼 也 在 改变 其 生命 状态 。 
你 要 用 最 少 的 次 数 ,将 全 部 魔鬼 打 死 。 见 下 面 运行 实例 ,用 


双 旧 口上 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


“## ”表示 活 鬼 ,用 “. "表示 死 鬼 。 
] RUNA 
提 提 # 林 朱 提 井 林 林 提 
Magic,3<41 
朱林 . 提 坷 并. 提 提 # 
Magic :4<1 
朱林 . 林 朱 林 . 提 提 # 
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Magic:5< 

.并 。。 提 井 . 提 提 

Magic:6<1! 

.并 并 。。 并 . 井 提 # 

Magic:3< 

。。。。。。 拉 . 打 提 # 

Magic:10<4! 

。。。。。。 提 . 提 . 

Magic ;9<1! 

. 提 。。。 扑 。。， 

Magic:7<-1 

. 朱 . 提 。。。。 

Magic:2<1! 

。。。 提 . 提 。。。 

Magic:4<1! 

Good!(10) 

中 

最 后 计算 机 根据 你 用 棒 的 次 数 ,对 你 进行 评价 , 共 分 四 

级 ;Very Good .Good Average .Try “ hard 。 

10 RHROME 

20 DIM A 和 $(10) 

30 FOR I==1 TO 10 

40 A$(D 一 “#? 

50 NEXT I 

60 T 王 0 

70 GOSUB 500:REM 产生 随机 数 

75 GOSUB 900:REM 输出 生命 状态 

80 INPUT “Magic:”;M 

85 IF M<l OR M>10 THEN 80 
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90 GOSUB 700:REM 改变 生命 状态 


95 T=T+l 

100 IF Y=0 THEN 130 

110 IF RND(1) 之 0.55 THEN 70 

120 GOTO 75 

130 GOSUB 900:REM 输出 生命 状态 

140 IF T<=9 THEN PRINT “Very Goodlwi 

150 IF T>=10 AND T<=13 THEN PRINT 
“Good?”4 

160 IF T>=14 AND T< 一 16 THEN PRINT “Av- 
erage”; 

170 IF T>=17 THEN PRINT “Try hard”; 

180 PRINT “(”;Ti“)2 

190 END 

500 GOSUB 600 

510 Al 一 X1:A2 一 X2 

520 GOSUB 600 

530 B1 一 X1:B2 一 X2 

540 IF Al=BL OR Al=B2 OR 
A2 一 B1 OR A2 一 B2 THEN 520 

550 RETURN 

600 X1=-INTCORND(1)*10) 十 1 

610 X2 一 INTCORND(2) 类 10) 十 1 

615 IF Xl=X2 THEN 610 

620 RETURN 

700 K=M : GOSUB 800 

710 IF M 王 Al THEN 开 王 A2 :GOSUB 800:GOTO 
745 

720 IF M=A2 THEN K-Al:GOSUB 800;GOTO 745 

730 IF .M=B1 THEN K 一 B2:GOSUB 800:GOTO 745 


740 IF M=B2 THEN K 一 Bl1:GOSUB 800:GOTO 745 
745 Y=0 
750 FOR I=1 TO 10 
760 IF A$(D=“#” THEN Y=Y 二 1 
770 NEXT 1 
780 RETURN 
800 IF 和 A$CK) 一 “#” THEN Ad$(K) 一 “.”: GOTO 
820 
810 IF 和 A$(K) 一 “.” THEN 和 A$$(K)=“##? 
820 RETURN 
900 FOR I=-1 TO 10 
910 PRINT 和 A$(D; 
920 NEXT 1 
930 PRINT 
940 RETURN 
程序 说 明 : 子 程序 600 一 620 产 生 两 个 互 不 相同 的 随机 数 ， 
子 程序 500 一 550 产 生 四 个 互 不 相同 的 随机 数 , 子 程序 800~ 
820 仅 改变 第 K 号 魔鬼 的 生命 状态 , 子 程序 700 一 780 改 变 第 
M 号 魔鬼 及 可 能 相 联系 的 魔鬼 的 生命 状态 , 子 程序 900 一 940 
输出 10 个 魔鬼 的 生命 状态 。 语 句 110 和 120 的 意义 是 : 当 再 一 次 
出 现 魔鬼 之 前 ,有 百 分 之 四 十 五 的 可 能 改变 上 次 产生 的 四 个 
随机 数 。 这 样 , 这 个 游戏 更 加 有 趣 , 各 个 魔鬼 之 们 的 生命 联系 
变幻 莫 测 。 
6. 月 球 着 陆 
你 的 登 月 舱 已 到 达 月 球 表面 着 陆 点 的 上 空 500 米 ,以 50 米 
/ 炒 的 速度 直线 下 降 . 此 时 火箭 上 还 有 燃料 120 个 单位 。 一 秒 内 
消耗 一 单位 燃料 可 以 使 登 月 舱 下 降 速 度 降低 1 米 / 秒 。 发 动机 
产生 的 最 大 减速 度 为 30 米 / 秒 ( 即 每 秒 最 多 可 烧 30 单 位 燃料 ) 。 
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你 必须 每 隔 1 秒 决定 使 用 多 少 燃料 ,适当 地 控制 下 降 速 
度 , 使 之 软 着 陆 , 即 以 每 秒 2 米 以 下 的 速度 着 陆 . 这 是 成 功 的 着 
陆 ,否则 飞船 会 撞 坏 ,你 就 会 丧生 ,如 果 你 打 入 的 值 不 适当 的 
话 , 可 能 导致 飞船 向 反方 向 飞行 ( 飞 离 月 球 )。 这 时 ,可 以 在 接 
连 的 几 秒 内 不 使 用 燃料 ,使 飞船 在 月 球 重力 作用 下 慢 慢 地 飞 
回 月 球 。 
游戏 过 程 中 ,计算 机 显示 时 间 、 高 度 . 下 降 速 度 . 剩 余 然 
料 ,并 且 以 “x* " 离 “1” 的 位 置 表示 离 月 球 表面 的 距离 。 然 后 由 
你 决定 下 一 秒 内 消耗 燃料 的 数量 ,要 求 其 值 在 0 一 30 之 间 , 如 
果 输 入 的 值 天 0, 按 0 处 理 , 如 之 30, 按 30 处 理 , 如 超过 剩余 的 燃 
料 量 , 按 剩余 燃 量 处 理 。 
假定 月 球 表面 的 重力 加 速度 为 1. 57 米 / 秘 。 
游戏 过 程 见 下 : 
] RUN++ 
Our spaceship is now at landin8 
Drocedure， 
SEC M SPEED FUEL PLOT 
( 秒 ) 〈( 米 ) 《〈 速 度 ) 〈 燃 料 )( 距 离 示 图 ) 
0 500 50 120 
Fuel uscd ;0 
44 员 215 5157 120 I 类 


Fuel used:10<! 


2 401.86 43.14 110 I 火 
3 357.935 44.71 110 1I 大 
Puel 。 used :0<4 

4 312.44 46.28 140 TI 火 


Fuel used :0<! 
5 265.375 47.85 110 I 火 


。 168。 


Fuel used :0<+! 


6 216.74 49.42 110 火 
Fuel used:0< 

7 166.535 50.99 110  I 火 
Fuel 。 used :0<+ 

8 114.76 52.56 110 I 痰 
Fuel used :30<+ 

9 76.4148 24.13 80 I 大 
Fuel used ,10<1 

10 ”56.4997 15.7 70 I 火 
Fuel 。 used :5<1! 

11 42.5147 12.27 65 I 火 
Fuel used ;0< 

12 29.4596 13.84 65 I 火 
Fuel used ;0<! 

13 14.8345 15.41 65 工 大 
Fuel used :5 

14 1.13946 11.98 60 I 火 
Fuel used :5<! 


火 火 火 火 Contact 火 火 火 火 

At 14.0964 Sec. 

(在 14. 0964 秒 时 磁 到 月 球 表面 ) 
Landing “Velocity 一 1. 6493 ” MV/SEC. 
(着 陆 速度 等 于 11. 6493 米 / 秒 ) 


Remain 55 units of fuel. 


(剩余 55 单 位 燃料 ? 


火 火 You blewit ! 
〈 你 把 它 撞 坏 了 ) 
] 

程序 见 下 : 
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10 
20 


30 
40 
50 
60 
70 


80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


220 
230 
240 
250 


HOME 

PRINT “Our spaceship ii new at landing 
dure. ” 

PRINT 

PRINT “SEC  M SPEED FUEL PLOT? 
PRINT 

T=0:H 王 500:V 王 50:F 王 120 

PRINT TiTAB(4);HITAB(C13)5V; 
TAB(23;F;TAB(29);“I”;TAB(H/12 十 29); 
cc 类 9 

INPUT “Fuel used:”;B 

IF B<0 THEN B 王 0:GOTO 120 


IF B>30 THEN B=30 
IF B>F THEN B 一 F 
V1=V 一 B 十 1.57 
F 一 F 一 B 
H=H 一 0.5x* (V 十 V1) 

IF H<=0 THEN 240 
T 一 T 十 1 

V=vVl 


IF F>>0 THEN 70 

IF B==0 THEN 210 

PRINT “X 炎 OUT OFEUEL 火 火 ” 
PRINT TiITAB(4)5H;TAB(13) Vs 
TAB(23)5F5TAB(29);“I25TABCH/12 十 29)3 
46 火 罗 

B 一 0 

GOTO 120 

-PRINT “类 火 火 火 Concact 火 火 火 火 了 
H 王 HH 十 0.5 大 (V 十 V1) 


proce- 


260 IF B 王 1.57 THEN 290 
270  D= (一 V 十 SQRCVxV 十 Hx 2x (1.57 一 B)))/(1. 57 一 
B) 
280 GOTO 300 
290 D=H/V 
300 V1 王 V 十 (1.57 一 8 大 D 
310 PRINT “At ?3T 十 Dj” Sec.? 
320 PRINT “Landing veloicty 一 ”;V1;“”MV/SEC. ?” 
330 PRINT “Remain”;Fi” Units of fuel.?” 
340 IF INTCV1I) < >0 THEN 360 
350 ”PRINT “Very Good，A perfect Landing. ?” 
360 正 ABSCV1)<2 THEN 380 
370 PRINT “火炎 You blew it !? 
380 PRINT 
390 END 
7. 马 踏 八方 
在 中 国 象棋 或 国际 象棋 中 , 马 的 走 法 最 为 奇特 , 它 最 多 有 
八 个 方向 可 走动 。 在 一 张 棋盘 中 ,规定 某 些 位 置 不 允许 马 走 
到 ,要 求 马 从 棋盘 上 某 一 位 置 (始点 ) 跳 到 另 一 位 置 ( 终 点 )。 对 
于 不 太 复 杂 的 棋盘 (如 8X8) ,我 们 能 很 容易 找到 答案 ,但 对 于 
复杂 的 棋盘 ,并 且 那 些 不 允许 马 跳 到 的 位 置 又 分 布 得 非常 巧 
妙 , 我 们 要 完成 这 件 事 就 显 很 得 非常 困难 。 
那么 ,能 不 能 利用 计算 机 来 解决 这 个 问题 呢 ?能 .例如 在 
下 图 中 ,阴影 部 分 表示 不 允许 马 跳 到 的 位 置 , 要 求 马 从 A 点 
跳 到 B 点 。 
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为 了 告诉 计算 机 哪些 位 置 可 以 到 达 , 哪 些 位 置 不 允许 到 
达 , 我 们 用 一 个 5X4 的 矩阵 来 表示 ,棋盘 左下 角 为 (1,1) ,右上 
角 为 (5,4) 。 若 P(x,y) 是 不 允许 到 达 的 点 ,那么 P(x,y) 取 值 
1 ,否则 P(x,y) 取 值 0。 

我 们 从 始点 A(1,1) 出 发 ,试探 八 个 方向 , 若 马 通过 某 一 
方向 能 到 达 合 法 的 点 ,我 们 就 令 此 新 点 为 当前 点 ,继续 试探 下 
去 ,看 看 是 否 已 到 达 终 点 B。 如 果 到 达 了 某 一 点 P, 从 P 点 出 
发 的 八 个 方向 都 不 合法 ,那么 应 退回 到 跳 到 P 点 之 前 的 点 
Q, 继 续 搜 索 下 一 个 方向 ,这 种 方法 称 为 回 朔 技术 。 最 后 ,在 上 
图 中 ,得 到 了 个 路 径 :A(1,1)->(3,2)-(4,4)-(5,2)->(3， 
3) 一 B(5,4) 。 


程序 如 下 ， 
10 M1=5:N1=4 
20 SX=-1:SY=1 


30 GX 王 5:GY 一 4 

40 M 王 M1 十 4:N 王 N1 十 4 

50 SX 王 SX 十 2:SY 一 SY 十 2 

60 GX 王 GX 十 2:GY 王 GY 十 2 

70 DIM AGCM'N),DX(8),DY(8),TIM1xN1) 
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80 FOR I=1 TO 8 

90 READ DX(D ,DY(D 

100 NEXT II 

110 FOR I=1 TO M 

120 A(,1) 王 1:A(L2) 一 1 

130 A(GDN 一 1)=1:A(GN) 一 1 

140 NEXT 1 

150 FOR I=1 TO N 

160 _ A(1,D 王 1:A(M,D 一 1 

180 NEXT II 

190 FOR I=3 TO M 一 2 

200 FOR J=-3 TO N 一 2 

210 READ A(L,J) 

220 NEXT J 

230 NEXT II 

240 DATA 1,2,2,1,2, 一 1,1, 一 2, 一 1, 一 2, 一 2, 一 1, 一 2， 
1, 一 1,2 

250 DATA 0,1,0,1，.0,0,1,0， 
0,0,0,1， 0,0,1,0， 
0,0,1,0 

450 TX 一 SX:TY 王 SY:GOSUB 1000， 

REM 检查 合法 性 ,合法 时 变量 TS 置 0, 不 合法 时 变量 

TS 置 1 

455 IF _ TS=1 THEN PRINT “始点 非法 鸭 :END 

460 TX 一 GX:TY 一 GY:GOSUB 1000 

465 IF TS=1 THEN PRINT “终点 非法 国 :END 

470 X 王 SX:Y 一 SY:A(X,Y) 一 A(X,Y) 十 100 

480 TP 一 1:TOTP)==1 

500 DR=-TCTP):GOSUB 1200:REM 由 点 (x,y) 和 DR 计 

算 后 继 点 (xl,y1) 
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510 TX 一 X1:TY 王 Y1:GOSUB 1000 

520 IF TS=0 THEN 610 

530 TOTP)=TCTP) 十 1:REM 探索 下 一 方向 

540 IF TCTP)<<=8 THEN 500 

549 REM 回 朔 

550 A(CX,Y) 一 A(X,Y) 一 100 

560 TP 王 TP 一 1 

570 IF TP=0 THEN 950:REM 没有 解 

580 DR 王 TCTP):GOSUB 1300:REM 由 点 (X,Y) 和 DR 
求 前 驱 点 (X1,Y1) 

590 X=Xl:Y 一 Y1 

600 GOTO 530 

610 IF Xl=GX AND YI=GY THEN 800:REM 找 
到 一 个 解答 

620 TP 王 TP 十 1:T(TP) 王 1 

630 X=Xl:Y 一 Y1 

640 A(CX,Y) 王 A(X,Y) 十 100 

650 GOTO 500 

800 X 王 SX:Y 一 SY 

820 GOSUB 910 

830 FOR I=1 TO TP 

840 DR 王 T(GD :GOSUB 1200 

850 X 王 X1:Y1:GOSUB 900 

860 NEXT II 

870 PRINT 

880 END 

900 PRINT “一 全”; 

910 PRINT “(?;X 一 2 ”3Y 一 23“)23 

920 RETURN 

950 PRINT “ 马 不 可 能 跳 到 点 ”; 
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960 X=GX:Y 一 GY:GOSUB 910 
970 PRINT 
980 END 
1000 TS==0 
1010 IF ACTX,TY)= 王 1 THEN TS 王 1 
1020 IF ACTX,TY)> 王 100 THEN TS=1 
1030 RETURN 
1200 X1 王 X 十 DXCODR) 
1210 Y1=Y 十 DYCODR) 
1220 RETURN 
1300 X1=X 一 DXCDR) 
1310 YY1= 王 YY 一 DYCODR) 
1320 RETURN 
程序 说 明 ; 
变量 MI 和 NI1 分 别 表 示 和 矩形 棋盘 的 水 平和 垂直 方向 上 
的 长 度 ,SX 和 SY 表示 始点 坐标 ,GX 和 GY 表示 终点 坐标 。 
数组 A(M,N) 记录 棋盘 上 哪些 点 是 能 到 达 ( 用 0 表示 ), 哪 些 
是 不 允许 到 达 ( 用 1 表示 )。 为 了 处 理 边界 问题 方便 ,计算 机 内 
部 的 棋盘 比 实际 棋盘 多 一 条 宽 为 2 的 边 围 着 ,因此 水 平 距离 
M 王 M1 十 4, 垂 直 距 离 N=N1 十 4, 并 且 这 条 边 上 的 所 有 点 都 
是 不 可 到 达 , 在 数组 A 中 应 填 上 值 1, 这 由 语句 110 一 180 完 
成 。 这 条 边 的 宽度 取 2 的 原因 是 马 在 跳动 时 任何 一 方向 使 水 平 
和 垂直 方向 的 变化 最 大 是 2。 
数组 DX 和 DY 记录 马 在 八 个 方向 跳动 时 引起 坐标 变化 
的 偏 移 值 . 如 向 右上 和 角 跳 时 ,X 坐标 加 1,Y 坐标 加 2, 因 此 DX 
(GD)=1,DY(2) 王 2。 数 组 T 记录 从 始点 出 发 到 当前 跳动 方向 
的 轨迹 , 若 当 前 点 已 是 终点 , 则 T(L1) T(2)、…… \T(CTP) 记录 
马 怎样 从 始点 跳 到 终点 , 见 语句 800 一 870 输 出 马 跳 动 路 径 程 
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序 段 。 


对 于 不 同 的 棋盘 ,只 要 修改 语句 10 一 30 中 变量 ML N1、 
SX、SY、.GX 和 GY 的 初 值 和 语句 250 的 数据 (数据 存放 ,顺序 
是 从 左下 角 (1,1) 开 始 , 先 下 到 上 ,再 左 到 右 )。 对 于 非 矩 形 棋 
盘 , 还 应 注意 语句 250 中 数据 的 表示 ,如 下 图 的 井 形 棋盘 ,在 表 
示 中 ,应 取 MI=7,N1 王 7,SX 王 1,SY 一 3,GX 一 7,GY 一 5, 使 
它 成 为 矩形 棋盘 ,并 将 新 增加 的 棋盘 部 分 填 上 1, 因 此 矩形 的 
DATA 内 容 应 是 : 


250 
260 
270 
280 
290 
300 


310 . 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,1,0,0,0,1,1 
1,1,0,0,0,1，,1 
0,1,0,1,0,0,0 
0,0,0,1,1,0,0 
0,0,0,1,0,0,1 
1,1,0,0,0,1，,1 
1,1,0,0,0,1，,1 
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